既にヴァンさんが書かれたものを、VB6に合わせて書くとこんなかんじです。

Private Sub Command1_Click()



    Select Case Text1.Text

        Case "1"

            Label1.Caption = "一"

        Case "2"

            Label1.Caption = "二"

        '以下省略 

    End Select



End Sub

しかし、今日からVBを始めたのに10年前のバージョンを使用されるとは何か事情があるのでしょうか？
せっかく新しく始められるのでしたら最新版のVB2008をお奨めします。
無料でダウンロードして使用できます。
http://www.microsoft.com/japan/msdn/vstudio/express/