テキストボックスに数字を入力すると漢数字に変換するプログラムの
サンプル載せておきます。


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kanji() As String = New String() {"0", "一", "二", "三", "四", "五", "六", "七", "八", "九"}
        Dim number As Integer
        Dim kansuji As String = ""
        Dim sign As String = ""


        If Integer.TryParse(TextBox1.Text, number) Then

            If number < 0 Then
                sign = "-"  'マイナスの符号
            End If

            Do
                kansuji = kanji(number Mod 10) & kansuji
                number ￥= 10
            Loop Until number < 1
            TextBox2.Text = sign & kansuji
        Else
            TextBox2.Text = "整数を入力してください"




        End If


        

    End Sub
End Cla