Option Explicit
Private Dictionnaire() As String

Private Sub CmdLire_Click()
Dim C1!
Dim Mot$
Dim TbTemp() As Byte
Dim StrTemp As String
TbTemp = LoadResData(101, "ListDesMots")
'Chargement du dictionnaire depuis la ressource
StrTemp = StrConv(TbTemp, vbUnicode)
Dictionnaire = Split(StrTemp, vbCrLf)
'Recupération des données
For C1 = 0 To UBound(Dictionnaire) - 1
Mot = Dictionnaire(C1)
Next
MsgBox UBound(Dictionnaire) & " mots." & Chr(13) & Chr(10) & "Le dernier mot lu: " & Mot
End Sub