Suponiendo que tu archivo esta cargado en la variable Texto
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
No se si es eso lo que buscas...
Eso es erroneo. Eso te diria la posicion respecto de los caracteres en la que se encuentra pero no la linea en la que esta. A ver si es esto lo que buscas:
Open "archivo.txt" For Input As #1
For i = 1 To LOF(1)
Input #1, linea
If left(linea, 4) = "pass" Then encontrado = i
Next i
No lo he probado en VB ya que no tengo el compilador instalado pero supongo que funcionara.