こんにちは

数字から漢数字はselect文を使うとして、文字列の分解の問題で躓いているんですか？
>・5桁の数字を入力するには
>　ex「65432」を変換して「六五四三二」へ
サンプル

Sub t()

Dim sbuf As String

Dim iLen As Long

Dim i As Long



    sbuf = "123456"

    iLen = Len(sbuf)

    For i = 1 To iLen

        Debug.Print Mid(sbuf, i, 1)

    Next i

End Sub

>・桁数を表す漢字を入力するには
>  ex「65432」→「六万五千四百三十二」へ
に付いては、例えば10000で割り算した結果が1以上の整数があれば1万の桁があるのがわかりますね。
65432 - 65432割る(\か￥）10000
で6を割り出し→六万
65432 - 6 * 10000 = 5432
5432に対して同じ計算を繰り返す。

それとも、本当に例のような数値であれば桁数をlenで数えても判りますね。