Dim LoadVar() As String
 
If IsFilePath("Save.dat") Then 'IsFilePath ist natürlich definiert
 
DateiNummer = FreeFile
Open "Save.dat" For Input As DateiNummer
 
While Not EOF(DateiNummer)
  Line Input #DateiNummer, strLine
  LoadVar = Split(strLine, ",")
 
    'Zeile 1: VarInc
    If LoadVar(0) <> "" Then txtVarInc.Text = LoadVar(0)
 
    'Zeile 2: VarDec
    If LoadVar(1) <> "" Then txtVarDec.Text = LoadVar(1)
 
    'Zeile 3: VarUmstellNeg
    If LoadVar(2) <> "" And LoadVar(2) < 7 And LoadVar(2) >= 0 Then _
      txtVarUmstellNeg.Text = LoadVar(2)
 
    'Zeile 4: VarUmstellPos
    If LoadVar(3) <> "" And LoadVar(3) < 7 And LoadVar(3) >= 0 Then _
      txtVarUmstellPos.Text = LoadVar(3)
 
    'Zeile 5: VarMinRT
    If LoadVar(4) <> "" Then txtVarMinRT.Text = LoadVar(4)
 
Wend
Close #DateiNummer
End If

Ein Computer wird immer das tun, was du programmierst, nicht, was du willst.