Visual Basic - Consulta sobre convertir de Numeros a Letras

Function Numero_a_Letras(Num)

    Dim a As Byte, Texto As String

    Texto = ""

    For a = 1 To Len(Num)

        Select Case Mid$(Num, a, 1)

            Case "1":  Texto = Texto + " UNO"

            Case "2":  Texto = Texto + " DOS"

            Case "3":  Texto = Texto + " TRES"

            Case "4":  Texto = Texto + " CUATRO"

            Case "5":  Texto = Texto + " CINCO"

            Case "6":  Texto = Texto + " SEIS"

            Case "7":  Texto = Texto + " SIETE"

            Case "8":  Texto = Texto + " OCHO"

            Case "9":  Texto = Texto + " NUEVE"

            Case "0":  Texto = Texto + " CERO"

            Case Else: Texto = Texto + " -"

        End Select

    Next

    Numero_a_Letras = Mid$(Texto, 2)

End Function