Parcourir un fichier *.txt

Comment fait-on pour parcourir un fichier texte avec VB 6?
Toutes réponses seront les bienvenues. C'est pour mon stage.
Merci.

Je te donne ici deux exemple tirés de mes programmes. L'un montre l'écriture et l'autre montre la lecture!

'ecriture

a = cmb_modif_nom.Text
b = txt_modif.Text
j = 1
Open "C:\fichier_fournitures" For Random Access Read Write As #1
Do While Not EOF(1)

Get #1, j, b_action
    If b_action.nomprod = a And Option1.Value = True Then
        b_action.ref_nomenc = b
    End If
   
    If b_action.nomprod = a And Option2.Value = True Then
        b_action.ref_gibus = b
    End If
   
   
    Put #1, j, b_action
    j = j + 1
   Loop
    Close #1




' lecture

Open "C:\fichier_fournitures" For Random Access Read As #1
    j = 1
    Do While Not EOF(1)

        Get #1, j, b_action
        If nomproduit = b_action.nomprod Then
            lbl_refnom.Caption = b_action.ref_nomenc
            Label3.Caption = b_action.ref_gibus
            lbl_article.Caption = nomproduit
            lbl_article.Visible = True
            Label14.Caption = b_action.compte
            Label14.Visible = True
        End If
    j = j + 1
    Loop
    Close #1