Visual Basic para Aplicaciones - Como buscar una palabra en un fichero .txt o .xml y traer numero de linea del registro

Sub ijas()

palabra = InputBox("Ingrese la palabra a buscar")

If palabra <> "" Then

Cells.Find(What:=palabra, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

MsgBox "Se encuentra en la fila " & ActiveCell.Row

End If

End Sub

Sub ejemplo()

Dim palabra As String

Dim hh As String

palabra = InputBox("Ingrese la palabra a buscar")

strFileName = Application.GetOpenFilename()

Open strFileName For Input As #1

lineas = Split(Input$(LOF(1), #1), vbLf)

Close #1

For i = 0 To UBound(lineas)

If Left(lineas(i), Len(lineas(i)) - 1) = palabra Then

k = i + 1

Exit For

End If

Next i

If Not IsEmpty(k) Then

MsgBox palabra & " Está en la fila " & k

Else

MsgBox palabra & " No Está en la lista "

End If

End Sub