"125;455"

Dim F As Integer
Dim sLine As String
Dim sData() As String
 
 
Private Sub Command1_Click()
F = FreeFile
Open "Datei.txt" For Input As #F
While Not EOF(F)
  Line Input #F, sLine
  sData = Split(sLine, ";")
 
  Text1.Text = sData(0)
  Text2.Text = sData(1)
  ' sData(1) = 2. Element der Datenzeile
  ' usw.
Wend
Close #F
End Sub
 
 
 
Private Sub Command2_Click()
'TextBox-Inhalt in Text-Datei speichern
  Dim FN As Integer
 
  FN = FreeFile()
  Open "Datei.txt" For Output As #FN
    Write #FN, Text1.Text & ";" & Text2.Text
  Close #FN
End Sub