Public Function txt_ReadAll(ByVal sFilename As String) _
  As String
 
  Dim F As Integer
  Dim sInhalt As String
 sFilename = App.Path & "\pi.txt"
  ' Existiert die Datei ?
  If Dir$(sFilename, vbNormal) <> "" Then
    F = 1
    Open sFilename For Binary As #F
    sInhalt = Space$(LOF(F))
    Get #F, , sInhalt
    Close #F
  End If
 
  Text1.Text = sInhalt
  Form1.Caption = sFilename
End Function
 
Private Sub Command1_Click()
 Dim sFind As String
 sFind = Text2.Text
 For i = 1 To Len(sInhalt) - Len(sFind)
  If Mid(sInhalt, i, Len(sFind)) = sFind Then
   Text3.Text = i
   Exit Sub
  End If
 Next i
 Text3.Text = "not found"
End Sub
 
Private Sub Form_Load()
Call txt_ReadAll(App.Path & "\pi.txt")
End Sub

--------------------------------------------------

Dim Antwort As Boolean

Sub Frage()
Do
If Antwort = True Then
Exit Do
End If
Loop
End Sub