Private Sub cmdOpen_Click()
Dim sline As Variant
Dim vData As Variant
 
Open "C:\MKTool\termine.txt" For Input As #1
While Not EOF(1)
 
   Line Input #1, sline
  vData = Split(sline, ";")
  If UBound(vData) = 2 Then
    DTPicker1.Text = DTPicker1.Text & vData(0) & vbCrLf
    DTPicker2.Text = DTPicker2.Text & vData(1) & vbCrLf
    Text4.Text = Text4.Text & vData(2) & vbCrLf
  End If
 
 Wend
Close #1
 
End Sub

Viele Gr??e

MarKir