Visual Basic - Urge Select Case

Hola Amigos.
Deseo saber como hacer para que por medio de un SELECT Case de VB6.0 pueda validar la entrada de numeros a unos TEXTBOX,
Verán Si yo digito en TXT1. un valor si ese valor es 10,100,1000 o 20, 30
es decir todos los que terminen en Ceros del 10 al 1000 deben convertirse en el TXT2 EN: Ejmp
Si el TXT1 es 10 el TXT2 será 00100,
Si el TXT1 es 100 el TXT2 será 01000

Gracias de antemano

Estimada Dylana: Yo lo haría con un If.
De la siguiente manera:

If (Val(Text1.Text) >= 10 And Val(Text1.Text) <= 1000) _
And Right(Text1.Text, 1) = "0" Then

Text2.Text = Format(Val(Text1.Text) * 10, "00000")

End If

Un besote.