Private Sub Command1_Click()
    s = Text1.Text
    s1 = RTrim(Text2.Text)
    Do
'      p = ?(s, s1)
        If p <> 0 Then n = n + 1
'      s = ?(s, p + 1)
'  Loop While p ? 0
'  Label3.Caption = ?
End Sub
Private Sub Form_Load()
    Open App.Path & "\in4.txt" For Input As #1
    Line Input #1, s
'  Text1.Text = ?
    Close #1
End Sub