For i = 1 to len(Texto)
    If Mid(Texto, i, 4) = "Pass" then
        MsgBox "Pass se encuentra en la linea " & i
    End If
Next i

Do While i = i
    Beep
Loop

    ImageList.ListImages.Add , "Imagen", LoadPicture("C:\MiImagen.jpg")

    ListView.ListItems.Add , , "HOLA", "Imagen"

    Dim Var As String
    Open "c:\telefonos.txt" For Input As #1
        For i = 1 To 3 'esta es la cantidad de lineas que vamos a sacar
            Line Input #1, Var 'sacamos linea por linea
            Select Case i 'nos vamos fijando en que linea estamos
                Case 1 'si es la 1ra linea
                    Text1 = Var 'la ponemos en el text1
                Case 2 'si es la segunda...
                    Text2 = Var 'en el text2...
                Case 3
                    Text3 = Var
            End Select
        Next i
    Close #1 'cerramos el archivo

    Palabra = InputBox("Palabra a buscar", "Buscar")
    For i = 1 To Len(Text1)
        If LCase(Mid(Text1, i, Len(Palabra))) = LCase(Palabra) Then
            Text1.SetFocus
            Text1.SelStart = i - 1
            Text1.SelLength = Len(Palabra)
            Exit For
        End If
    Next i