neptuneさん
こんばんわ

ご指摘の通りです…
何をどのように活用すればよいか、わからず皆さんのご好意に
甘えてしまいました。基礎の基礎もあやふやなのに気ばかり焦ってしまって…すみません。。。

以下がコードです。皆さんから教えていただいた物と無い頭を使って自分なりに書いたものです。


cmdhenkanが”変換”コマンドボタンで、
cmdketaが”変換２”コマンドボタンです。

Option Explicit
Private Sub cmdhenkan_Click()
    Dim Suzi: Dim Kansuzi As String
    
    Suzi = txtsuzi
    Kansuzi = lblkansuzi
    
    Select Case txtsuzi.Text
    
    Case "0"
        lblkansuzi.Caption = "〇"
    Case "1"
        lblkansuzi.Caption = "一"
    Case "2"
        lblkansuzi.Caption = "二"
    Case "3"
        lblkansuzi.Caption = "三"
    Case "4"
        lblkansuzi.Caption = "四"
    Case "5"
        lblkansuzi.Caption = "五"
    Case "6"
        lblkansuzi.Caption = "六"
    Case "7"
        lblkansuzi.Caption = "七"
    Case "8"
        lblkansuzi.Caption = "八"
    Case "9"
        lblkansuzi.Caption = "九"
        
    End Select
    
End Sub

Private Sub cmdketa_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer

lblkansuzi = a
lblkansuzi = b
lblkansuzi = c
lblkansuzi = d
lblkansuzi = e


a = len(&"万") * 10000
b = len(&"千") * 1000
c = len(&"百") * 100
d = len(&"十") * 10
e = len()*1




End Sub

Private Sub lblkansuzi_Click()
    Dim txtsuzi: Dim lblkansuzi As String
    Dim i As Long

    txtsuzi = "00000"
    iLen = Len(textsuzi)
    For i = 1 To iLen
        lblkansuzi.Print Mid(txtsuzi, i, 1)
    Next i


End Sub

neptuneさんのご指摘通り、きちんと勉強していきたいので、
答えではなく、考え方のヒントなどを宜しくお願いします。

絶対に作れるようにしてみせます！