Dim s_word, s_find As String
Private Sub Command1_Click()
    s_word = InputBox("Cadena a buscar:")
    ' Find string in text.
    s_find = InStr(Text1.Text, s_word)
    If s_find Then
        Text1.SetFocus
        Text1.SelStart = s_find - 1
        Text1.SelLength = Len(s_word)
    Else
        MsgBox "No se encuentra la cadenas"
    End If
End Sub
 
Private Sub Form_Load()
Text1.Text = "Los gatos tienen cuatro patas"
Command1.Caption = "Buscar"
End Sub