Problème d'affichage en arabe

Salut 
voila  j'ai utilisé  la zone d'affichage des controles forms.2  ainsi que le code si dessou
pour afficher des phrases en arabe a partir d'un fichier text .
ce fichier est écrit et enregistré en unicode sous WindowsXP

le problème c'est que ça marche que pour la première ligne seulement .

pour les autres lignes ça continu a afficher des caractères autre que ce qui est enregistré

voici le code:

Dim fso As New FileSystemObject
Dim strm As TextStream
Dim phrase As String
Dim nouvellePhrase As String

Private Sub cmdBoutton_Click()
txtAffichage.Text = ""
phrase = strm.ReadLine
nouvellePhrase = StrConv(phrase, vbFromUnicode)
txtAffichage.Text = nouvellePhrase
End Sub

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


                           Merci