UNICODE - Fichier s¨¦quentiel

Salut,
J'ai ce genre de fichier :
1 §©§Ñ§á§Ý§Ñ§ß§Ú§â§à§Ó§Ñ§ß§Ú§Ö
2 §°§ä§Ü§â§í§ä§à
3 Personnal
4 §±§à§Ü§Ñ§Ø§Ú§ä§Ö §Ú§ß§æ§à§â§Þ§Ñ§è§Ú§ð §á§à§Õ §Ú§Þ§Ö§ß§Ñ§Þ§Ú
5 §£§í§Û§Õ§Ú§ä§Ö

pour lire un fichier :
            Dim b()  As Byte
            Open sFile For Binary Access Read As nNumFile
               ReDim b(LOF(nNumFile))
               Get nNumFile, , b
            Close nNumFile

puis je souhaite placer chaque ligne dans un tableau comme :
tbMsgID(1)="§©§Ñ§á§Ý§Ñ§ß§Ú§â§à§Ó§Ñ§ß§Ú§Ö"
tbMsgID(2)="§°§ä§Ü§â§í§ä§à"

Et toute la difficult¨¦ est l¨¤  :
            sMessage = b
            sMessage = Replace$(b, uBOM, "")
            j = InStrB(sMessage, vbCrLf)
            Do While j > 0
                s = MidB(sMessage, 1, j)
                i = InStrB(s, vbTab)
                If Not i = 0 Then
                    nID = CInt(StrConv(MidB(s, 1, i - 1), vbFromUnicode))  ****
                    If nID > UBound(tbMsgID) Then ReDim Preserve tbMsgID(nID)
                    tbMsgID(nID) = Trim$(MidB(s, i + 2)) 's
                End If
                sMessage = MidB(sMessage, j + 1)
                j = InStrB(sMessage, vbCrLf)
            Loop

Mais o¨´ j'ai mis **** , s=?1 et donc incapable de renvoyer la valeur num¨¦rique !
Un Dieu VB rode dans le coin ?
par avance merci (ca fait 2 jours que j'y suis et je suis HS)

gaffe au
ReDim b(LOF(nNumFile))

=> ReDim b(LOF(nNumFile)-1)

Yes ! merci beaucoup RendField (ca fait que 2 jours que je tourne...)

            b = Mid(b, 2)
            Dim j As Integer
            Dim xsLines() As String
            xsLines = Split(b, vbCrLf)
            For i = 0 To UBound(xsLines) - 1
                    j = InStrB(xsLines(i), vbTab)
                    nID = Val(MidB(xsLines(i), 1, j - 1))
                    If nID > UBound(tbMsgID) Then ReDim Preserve tbMsgID(nID)
                    tbMsgID(nID) = Trim(MidB(xsLines(i), j + 2))
            Next i