VB6 convertir des chiffre en lettre

Bonsoir,
je souhaite réaliser un programme en vb6 qui permet de convertir des chiffres et des nombres en lettre

mon programme contient une zone de texte (dans lequel je saisie le chiffre) ,une bouton de commande (quand j click ) le chiffre ( nombre) se converti en lettres et une label ( qui affiche le nombre que j'ai saisie en lettre)
mon but est de réaliser un programme simple qui converti les chiffre de 0 à 1000000 sans prendre en considération la virgule .
SVP aidez moi je suis encore débutante et j'arrive pas a le réaliser

le début de mon programme est le suivant :

Private Sub Command4_Click()
Dim chiffre As Long
chiffre = Val(Text5.Text)
Select Case chiffre
Case 0: Label6.Caption = "zéro DH"
Case 1: Label6.Caption = "un DH"
Case 2: Label6.Caption = "deux DH"
Case 3: Label6.Caption = "trois DH"
Case 4: Label6.Caption = "quatre DH"
Case 5: Label6.Caption = "Cinq DH"
Case 6: Label6.Caption = "Six DH"
Case 7: Label6.Caption = "Sept DH"
Case 8: Label6.Caption = "Huit DH"
Case 9: Label6.Caption = "Neuf DH"
Case 10: Label6.Caption = "Dix DH"
Case 100: Label6.Caption = "Cent DH"
Case 1000: Label6.Caption = "Mille DH"
Case 1000000: Label6.Caption = "un million de DH"
Case ..................................................
End Select