[Stevenmn]

muchas gracias por el code, sino consigo hacerla como quiero pues usare esa forma, lo que pasa es que lo quiero hacer de esta forma

http://www.recursosvisualbasic.com.a...ico5.htm#instr

Option Explicit

Private m_Pos As Integer


Sub buscar_cadena(ByVal Posicion As Integer)

Dim p As Integer, Frase As String

    Frase = txt_Buscar
    
    p = InStr(Posicion, Text1, Frase)
    
    If p > 0 Then
        m_Pos = p
        
        With Text1
            .SelStart = m_Pos - 1
            .SelLength = Len(Frase)
            .SetFocus
        End With
    Else
        MsgBox "No se encontró la frase", vbInformation
        Text1.SetFocus
    End If
End Sub

Private Sub Command1_Click()
Call buscar_cadena(1)
End Sub

Private Sub Command2_Click()
Call buscar_cadena(m_Pos + 1)
End Sub

Este mismo codigo lo he hecho en delphi, lo unico que varia es ala funcion isntr por pos.
El problema que creo que es, es que la funcion POS de delphi no requiere una posicion, en cambio la instr si, no habra otra ??


^^