空白の制御

Visual Basic６について質問です。
現在、テキストボックスが空白の場合そこに0が入るようにしているのですが以下のソースよりもっとスマートな制御法ってありますでしょうか？

For i = 0 To 2
If Text(i).Text = "" Then
Text(i).Text = 0
End If
Next i
abc = Format(Text(0).Text, "0000") & Format(Text(1).Text, "00") & Format(Text(2).Text, "00")

No.1 ベストアンサー 回答者： chibita_papa 回答日時： 2005/11/28 11:01

あえて、テキストボックスに0を入れる必要がなく

空白のままで良いのなら

abc = Right("0000" & Text1(1), 4) & Right("00" & Text1(1), 2) & Right("00" & Text1(2), 2)

だったらコードの数は減りますが？
スマートかどうかは？？？

こんなのも
abc = Format(Val(Text(0).Text), "0000") & Format(Val(Text(1).Text), "00") & Format(Val(Text(2).Text), "00")