Private Sub cmdOpen_Click()
 Dim sLine As String
 
Open "C:\MKTool\Test.txt" For Input As #1
While Not EOF(1)
  Line Input #1, sLine
  Text1.Text = Text1.Text & sLine & vbCrLf
Wend
Close #1
 
End Sub

Viele Gr??e

MarKir