レス失礼します。

きちんと見ていない＆やっていないので間違っていましたらすいません（汗）
and ご指摘がありましたらどんどんお願いします。
（１）変換１が動いているのか
　これを見る＆自分のでやってみたんですが動かなかったです（汗）
　テキストボックスに入っている数字をコマンドボタン(変換）を押すことで
　ラベルに表示されるんですよね？（解釈がおかしかったらご指摘ください）　

　cmdhenkan　クリックにて
　
　lblkansuzi　がラベルですよね？
  txtsuzi がテキストボックスですよね？

>　Kansuzi = lblkansuzi

　では、Kansuzi　は何に使われていますか？
　Kansuzi　に入れているのでしたら、

    Case "0"
        Kansuzi = "〇"

　にする方がいいです。
　また、
    
　　Case "0"
        Kansuzi = "〇"

　では塗り替えをしてしまいます（たぶん）
　もし　"123" だと　"三" となってしまいます。
　また　case文（試せなかったので動くかも（汗））だと、
　２ケタ以上だと引っかからない可能性があります。
　そういうことがあるので、if文＋like　でやるといいと思います。
  

  '例.	 

	Dim Number as string

	Dim Anumber as Long

	Dim Kansuzi as string

	

	Anumber = txtsuzi.text

	

	If Anumber Like "*1*" Then

            Number = "一"

	　　Kansuzi = Kansuzi + Number

        End If

	

	lblkansuzi = Kansuzi

  

　
（２）エラー
　　これを見るとエラーがおきた時どうするか書かれていません。
　　もし変換するものに数字以外が入った場合や、
　　何も入れずに変換ボタンを押した場合にどうするかです。
　　（書かれていましたらスルーしてください。）
　　私の場合、エラーを出した場合は Msgbox をだして警告、
    そして txtsuzi　を 初期化 ＋ SetFocus　をします。

（３）テキストボックス
    テキストボックスって１つでしょうか？
　　cmdhenkan_Click　にて
> Suzi = txtsuzi
　　　　　　　　 ~~~~~~~
　　lblkansuzi_Click　にて
> iLen = Len(textsuzi)
                   ~~~~~~~~~
    と書かれてたので２つあるのかな？

（１）は自信がないのでスルーしても構いません（汗）
（２）も気にはなったものですから…
　　　あまり題材とは関係がないかも知れませんね（汗）

とりあえず1部分気になったものだけ見てみました。まだきちんとみていないので
わかりませんが、他の皆様方のすばらしいレスで出来ると思います。頑張って作って
みてください。

また neptuneさん、るきおさん、ボーヤさんが言われている通り、勉強目的なのに
ヒントではなく答え言ったかもしれません。その場合はすいません。