Nightmareさん

アドバイス有難う御座います。
エラー…
そこまで考える余裕がなかったです。

今日は、落ち着いてフローチャートを書く事から始めました。
こういう結果を出したかったら、どうすればいいのか落ち着いて
考え、まだまだですが、わからない事がわからないというトンネルから
抜け出したような感じがします。


今日現在まで色々調べたりして、以下のようにまできました。




Option Explicit
Private Sub cmdhenkan_Click()
    
    lblkansuzi.Caption = NumKanji(txtsuzi.Text)

End Sub
Private Function NumKanji(ByVal Arg As String) As String
    Dim Idx As Long
    For Idx = 1& To 10&
        Arg = Replace$(Arg, _
            Mid$("1234567890", Idx, 1&), _
            Mid$("一二三四五六七八九〇", Idx, 1&) _
        )
    Next
    
    NumKanji = Arg

End Function
Private Sub txtsuzi_KeyPress(KeyAscii As Integer)
    Dim Key As String
    
    Key = Chr(KeyAscii)
    
    If Key >= "0" And Key <= "9" Then

    ElseIf Key = Chr(8) Then

    Else
    KeyAscii = 0
    MsgBox "数値以外は入力できません。", vbOKOnly + vbInformation, "情報"
    
    End If


    
    If Len(txtsuzi.Text) >= 5 And _
    ((KeyAscii >= Asc("A") And KeyAscii <= Asc("z")) _
    Or (KeyAscii >= Asc("0") And KeyAscii <= Asc("9"))) Then
    
    MsgBox "桁数は5桁までです。", vbOKOnly + vbInformation, "情報"
    KeyAscii = 0
    End If



次は、12345の五桁数字を一万二千三百四十五と変換出来るように頑張ります。