Aller à la dernière ligne d'un fichier texte et recherche une chaine de caractére

Bonjour à tous,
 
Voila je suis un gros débutant en VB alors excusez mes questions qui peuvent sembler triviales à certains    
Voila j'ai ouvert un fichier texte en lecture et je cherche à aller à la dernière ligne de celui ci et y rechercher ensuite la chaîne de caractère "défaut". Si la chaîne défaut est trouvée il faudra alors lancer une fonction.
Quelle est la manière la plus simple de faire ça ? 
 
Quelqu'un m'a suggéré d'utiliser le fileobjectsystem et l'object textstream mais ceux ci ne sont pas présents sur VB 6.0 à moins que je me trompe...

Merci
 
A+

Option Explicit 
'
'
Private Sub Command1_Click() 
    Dim FF As Integer, sMonFichier As String, sDerniereLigne 
    FF = FreeFile 

'   reçoit fichier complet
    Open "C:\truc.txt" For Input As #FF 
        sMonFichier = Input(LOF(FF), 1) 
    Close #FF 

'   retourne la dernière ligne
'   ATTENTION, on cherche pas au 1er carac, car souvent fichier terminé par VbCrLf
'   donc... ligne vide 
    sDerniereLigne = Right$(sMonFichier, Len(sMonFichier) - InStrRev(sMonFichier, vbCrLf, 2) - 1) 

'   cherche "défaut"
    If InStr(1, sDerniereLigne, "défaut") > 0 Then 
        MsgBox "ouaip, trouvé", 32 
    Else 
        MsgBox "nan, y'a pas...", 32 
    End If 
End Sub 

 

Coloration syntaxique automatique [AFCK]
       

++
PCPT   [AFCK]