Private sVarA As String
Private sVarB As String
Private sVarC As String
Private sVarD As String
 
Private VarContainer As New Scripting.Dictionary
VarContainer.Add "vara", "sVarA"
VarContainer.Add "varb", "sVarB"
VarContainer.Add "varc", "sVarC"
VarContainer.Add "vard", "sVarD"
 
Open "text.txt" For Input As #iFile
  Do Until EOF(iFile)
    Line Input #iFile, sLineOfFile
    VarName??? = VarContainer.Item(Left$(sLineOfFile, InStr(1, sLineOfFile, "" & _
      "", 1) - 1))
    VarName = hier die Restzeile
    End If
  Loop
  Close #iFile