Text2.Text = vData(0)

Private Sub cmdOpen_Click()
Dim sline As Variant
Dim vData As Variant
 
Open "C:\MKTool\Test.txt" For Input As #1
While Not EOF(1)
  Line Input #1, sline
  vData = Split(sline, ";")
Text2.Text = vData(0)
Text3.Text = vData(1)
Text4.Text = vData(2)
Wend
Close #1
 
End Sub

Viele Gr??e

MarKir