こんにちは。

VB6は良く分かっていませんが、単純にこんなのじゃだめですかね。

Select Case textBox1.Text
Case '0': label1.Text = "一"
Case '1': label1.Text = "二"