On Error Resume Next
Dim foo As Integer
    foo = FreeFile
    Open "C:\user.dat" For Input As #foo
       Form2.Text1.Text = Input(LOF(foo), #foo)
Close #foo

On Error Resume Next
Open "C:\user.dat" For Output As #1
Print #1, Text1.Text
Close #1

Private Sub Command2_Click()
busca (Text1.SelStart + 1)
End Sub


Sub busca(Optional ByVal bs As Integer)
Dim a As Integer
Dim b As String
 b = Text2.Text
  If Len(b) Then
     a = InStr(bs + 1, Text1.Text, b)
      If a > 0 Then
      Text1.SelStart = a - 1
      Text1.SelLength = Len(b)
      Text1.SetFocus

      Else
      MsgBox "No se puede encontrar: " & Chr$(13) & b, vbDefaultButton1, "Error en Busqueda"
      Text2.SetFocus

       End If
    End If
End Sub