Private Sub cmdLaden_Click()
Dim sLine As String
 
Open App.Path & "\output.txt" For Input As #1
  If Not EOF(1) Then Line Input #1, sLine: Text1.Text = sLine
  If Not EOF(1) Then Line Input #1, sLine: Text2.Text = sLine
  Close #1
 
End Sub