Option Explicit
 
Private Sub Berechnen_Click()
Dim dblCpd As Double
Dim dblLog10 As Double
Dim dblDruck As Double
Dim dblCpl As Double
Dim strText As String
Dim lngI As Long
Dim dblaX(1 To 10) As Double
Dim dblaDampfdruck(1 To 10) As Double
Dim dblaT(1 To 10) As Double
Dim dblaRV(1 To 10) As Double
Dim dblaEnthalpie(1 To 10) As Double
Dim dblaDichteLuft(1 To 10) As Double
Dim dblaLuftfeuchte(1 To 10) As Double
 
dblDruck = 1013
dblCpl = 1.006
dblCpd = 1.86
 
strText = strText & vbCrLf & "X01" & _
    vbTab & "Luftfeuchte" & vbTab & "Enthalpie01" & vbTab & "Enthalpie02" & _
    vbTab & "Enthalpie03" & vbTab & "Enthalpie04" & _
    vbTab & "Enthalpie05" & vbTab & "Enthalpie06" & _
    vbTab & "Enthalpie07" & vbTab & "Enthalpie08" & _
    vbTab & "Enthalpie09" & vbTab & "Enthalpie10" & vbCrLf
 
'Schleife für rel. Luftfeuchte 0.1...1
lngI = 1
dblaX(lngI) = 0.1
dblaLuftfeuchte(lngI) = 0.1
 
Do
 dblaX(lngI) = 0.1
 
     Do
      dblaDampfdruck(lngI) = (dblaX(lngI) / 1000 * 1.013) / (dblaLuftfeuchte( _
        lngI) * (0.622 + (dblaX(lngI) / 1000))) * 1000 'mbar
      dblLog10 = Log(dblaDampfdruck(lngI)) / Log(10#)
      dblaT(lngI) = (237.3 * dblLog10 - 186.45) / (8.2856958 - dblLog10) '°C
      dblaRV(lngI) = 2500 - (2.43 * dblaT(lngI))
      dblaEnthalpie(lngI) = (dblCpl * dblaT(lngI)) + (dblaX(lngI) / 1000 * ( _
        dblaRV(lngI) + dblCpd * dblaT(lngI)))
      dblaDichteLuft(lngI) = ((0.3483 * dblDruck) - (0.1316 * dblaLuftfeuchte( _
      lngI) * dblaDampfdruck(lngI))) / (dblaT(lngI) + 273.15)
 
 
      strText = strText & CStr(dblaX(lngI)) & vbTab & CStr(dblaLuftfeuchte( _
        lngI)) & vbTab & CStr(dblaEnthalpie(1)) & vbTab & CStr(dblaEnthalpie( _
        2)) & _
      vbTab & CStr(dblaEnthalpie(3)) & vbTab & CStr(dblaEnthalpie(4)) & _
      vbTab & CStr(dblaEnthalpie(5)) & vbTab & CStr(dblaEnthalpie(6)) & _
      vbTab & CStr(dblaEnthalpie(7)) & vbTab & CStr(dblaEnthalpie(8)) & _
      vbTab & CStr(dblaEnthalpie(9)) & vbTab & CStr(dblaEnthalpie(10)) & vbCrLf
 
 
      dblaX(lngI) = dblaX(lngI) + 0.1
     Loop While dblaX(lngI) <= Text1.Text
 
 dblaLuftfeuchte(lngI) = dblaLuftfeuchte(lngI) + 0.1
 
 Loop While dblaLuftfeuchte(lngI) <= 1
 lngI = lngI + 1
 
Dim lngDateiNr As Long
lngDateiNr = FreeFile
Open "C:\Filename.txt" For Output As lngDateiNr
 Print #lngDateiNr, strText
Close lngDateiNr
End Sub