Visual Basic - Conversión de numero a letra

Hola!!!
Ayúdenme... Alguien me podría decir como ó en donde puedo conseguir hacer la conversión de un número a letra
Se los agradezco.... Gracias

Private Dato As String
Private Cad As String

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then KeyAscii = 0: Exit Sub
End If
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Text1 = "" Then Label1 = "": Exit Sub
Dato = "": Cad = ""
Convert (Text1)
If Dato = "" Then
Label1 = Cad
Else
Label1 = Dato & Cad
End If
End Sub

Private Function Convert(Cadena As String)
Dim Numero As Long
Numero = Int(Cadena)
If Numero = 0 Then Cad = "cero": Exit Function
Select Case Numero
Case 1: Cad = "uno"
Case 2: Cad = "dos"
Case 3: Cad = "tres"
Case 4: Cad = "cuatro"
' y la función sigue, te la envio por email

mucho mas facil y con una sola función.

label1.text=chr(text1.text)

y listo , com dijieste un numero a letra eso es lo que hace un número a caracter.

Puedo enviarte la función a tu correo, es bastante larga para enviartela por aquí.