pb d'affichage ligne par ligne a partir d'un fichier en unicode

Salut :
Voila un code  avec les controles de forms2 dans le bute d'afficher des text en unicode(lettres en arabe) a partir d'un fichier text.

l'affichage est effectuer ligne par ligne dans la zone de text a chaque foi que j'apuis sur un boutton

le problème c'est que ça marche que pour la première ligne
a partir de la deusième ligne je me retrouve avec des caractère autre que ceux enregistrés ..

voila le code complet

-----------------------------------------------
Dim fso As New FileSystemObject
Dim strm As TextStream
Dim phrase1 As String
Dim phrase2 As String
Dim nouvellePhrase As String

Private Sub cmdBoutton_Click()
If strm.AtEndOfLine = False Then
phrase1 = strm.ReadLine
nouvellePhrase = StrConv(phrase1, vbFromUnicode)
txtAffichage.Text = nouvellePhrase
Else
strm.Close
Unload Me
End If
End Sub

Private Sub Form_Load()
Set strm = fso.OpenTextFile("c:\arabe.txt")
End Sub
---------------------------------------------------------------------

merci de me venir en aide

nasrino

Salut  a vous
je m'excuse pour ce retard , j'était absent pendant une semain.
voila j'ai suivi ton conseil SharVB et ça a bien marché .
On utilisant les paramères de la fonction OpenTextFile j'ai parvenu a litre un fichier écris en Unicode(lettres en arabe) .

Voila le nouveau code apré réctification :
'----------------------------------------------------------
Dim fso As New FileSystemObject
Dim strm As TextStream
Dim phrase1 As String
Dim nouvellePhrase As String

Private Sub cmdBoutton_Click()
If strm.AtEndOfLine = False Then
phrase1 = strm.ReadLine
txtAffichage.Text = phrase1
Else
strm.Close
Unload Me
End If
End Sub

Private Sub Form_Load()
Set strm = fso.OpenTextFile("c:\arabe.txt", ForReading, False, TristateTrue)
End Sub

Merci Shar