みなさま、お世話になっております
Textbox_Aに数字を打ち込むとTextbox_Bに文字が出るよう
下記のコードを組んでいます
(textbox_A内）
If textbox_A.Text = Nothing Then
            Textbox_B.Text = "　"
        ElseIf textbox_A.Text = "1" Then
            Textbox_B.Text = "あ"
        ElseIf textbox_A.Text = "2" Then
            textbox_B.Text =  "い" Then
       'あ行からか行まで続きます
        End If

これ一つならばこのままでもいいのですが、
textbox_Aとtextbox_Bが１ペアとして数十ペアある場合、
一つ一つ記述していったり、変更する際にかなりの時間を
費やすと思うのですが、これを一つにまとめる方法はありませんでしょうか？
本や、ネットで検索・模索しているのですが見つけられません。
［値渡し]が有効的と思い記述して、実際にTextbox_Aへ打ち込んで
見るものの反応なしです。。
下記がそのコードです

Public Sub sp(ByVal i)
        Dim TextBox_(i) As String  '入力側
        Dim TextBox_(i)As String　’表示側
        Dim inpt As String　　　’入力
        Dim outp As String　　　　’表示
        outp = TextBox_(i) + ".Text"　’表示
        inpt = TextBox_(i) + ".Text"　’入力
        If inpt = Nothing Then
            outp = " "
        ElseIf inpt = "1" Then
            outp = "あ"Then
        ElseIf inpt = "2" Then
            outp = "い"Then
        ’あ行からか行まで続きます
　　　　End If
    End Sub

TextBox_Aには
sp(A)と記述

どうかよろしくお願いします。
WinVista、VB2008

絵に描いた餅が食べられるようになるか？って話。
文字列つなげたところでテキストボックスにはなりません。

sp 関数の引数に２つのテキストボックス(もしくはそのテキスト)
渡せばいいのでは？

るしぇさま、ありがとうございます。
sp関数の引数に2つのテキストボックスというのが　わからないのですが

Public Sub sp(ByVal i)
        Dim textbox_(i.Text) As String
        Dim textbox_(i.Text) As String
        If textbox_(i.Text) = Nothing Then
            textbox_(i.Text) = "0"
        ElseIf textbox_(i.Text) = "1" Then
            textbox_(i.Text) = "あ"
        End If
    End Sub

で入力側のテキストボックスには
sp(A)
というようなかんじでしょうか？
”公開メンバ 'Text' は型 'Integer' に見つかりませんでした。”
と警告がでてしまいました。

こんにちは

「Visual Basic 言語の機能」
http://msdn.microsoft.com/ja-jp/library/bbykd75d.aspx
に目を通しておいた方が良いですよ。
「Visual Basic におけるプロシージャ」
など、特に。

この辺りがわからないとなにもできませんから。

>sp関数の引数に2つのテキストボックスというのが　わからないのですが
Private Sub sp(ByRef txt1 As TextBox, ByRef txt2 As TextBox)
ってな感じです。

spに渡す時は、
sp(TextBox1,TextBox2)
ってな感じです。

neptuneさま、ご指導ありがとうございます。
コードまで書いていただき、感謝しております。
msdn内の記事今後も活用させていただきたく思います。

るしぇさま、neptuneさま、ほんとうにどうもありがとうございました。