ByVal et TextStream

Bonjour,

J'utilise un textStream dans une procedure de la facon suivante:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1: Set oTxt = oFSO.OpenTextFile("toto.txt", ForReading) 2: Satellites$ = GetSatellites(oTxt) 3: L$ = oTxt .ReadLine 'ici je veux lire la 1ère ligne .....etc... Function GetSatellites(ByVal TexteStream As TextStream) As String ' lis le TextStream jusqu'à trouver la chaine "TEST" et renvoie la ligne With TexteStream Do While (Not .AtEndOfStream) L$ = .ReadLine if left(L$,4)="TEST" then exit do Loop return L$ end with
J'utilise ByVal pour ne pas affecter le TextStream mais à la ligne 3, au lieu de lire la toute premiere ligne du TextStream, je lis celle immédiatement après celle où j'avais trouvé "TEST".
Je pensais que ByVal faisait une "copie" du paramètre passé dans la fonction pour que la source ne soit pas modifiée...apparemment ce n'est pas le cas. Y a-t-il une astuce ?

Merci

Olivier