Private Sub Command1_Click()
     Dim F As Integer
     Dim sText As String
 
  If Dir$(App.Path & "	extdatei.txt") <> "" Then
       F = FreeFile
       Open App.Path & "	extdatei.txt" For Input As #F
       Line Input #F, sText
       Text1.Text = sText
       Close #F
     End If
  End Sub