Visual Basic - ¿Hay algún error en el bucle?

Private Sub Cmd1_Click()
Do While (Text1.Text = "1")
Text1.Text = "¡"
Exit Do
Loop
Do While (Text1.Text = "2")
Text1.Text = "A"
Exit Do
Loop
Do While (Text1.Text = "3")
Text1.Text = "j"
Exit Do
Loop
Do While (Text1.Text = "4")
Text1.Text = "0"
Exit Do
Loop
Do While (Text1.Text = "5")
Text1.Text = "F"
Exit Do
Loop
Do While (Text1.Text = "6")
Text1.Text = "/"
Exit Do
Loop
Do While (Text1.Text = "7")
Text1.Text = "@"
Exit Do
Loop
Do While (Text1.Text = "8")
Text1.Text = "!"
Exit Do
Loop
Do While (Text1.Text = "9")
Text1.Text = "*"
Exit Do
Loop
Do While (Text1.Text = "0")
Text1.Text = ")"
Exit Do
Loop
End Sub

Estoy haciendo un programa que cambie un número por un signo, letra o otro número, el VB6 no me da ningún error pero cuando le doy al comand button no hace nada.
¿Me podriais que es lo que hace que no vaya bien?
Gracias

Hola, la opcion do While no es la mas adecuada en este caso:
utiliza esto:
Private Sub Cmd1_Click()
Select Case Text1
Case Is = "1"
Text1 = "¡"
Case Is = "2"
Text1 = "A"
'---
'---
End Select
End Sub

Ya he probado el código pero me pasa lo mismo que con los if, si pongo un 11 el programa lo entiende como un 11 y no como dos unos, por lo que no me los substituye.
Gracias igualmente.

Para q te reconozca los numeros como tales debes validar el texbox asi:
select case Val(Text1)

Mira puedes hacerlo de esta manera, no se si quieras que te sustituya ese caracter especifico en la cadena, ejemplo si tengo la cadena "Mig1el" entonces deberia de buscar el "1" y sustituirlo por la "u" quedaria "Miguel" si asi es lo que quieres puedes hacerlo asi, en el Text1.Text ="Mig1el"
Private Sub Command1_Click()
Dim AuxVar As String
For i = 1 To Len(Me.Text1)
If Mid(Text1.Text, i, 1) = "1" Then
AuxVar = Mid(Me.Text1, 1, InStr(1, Me.Text1, "1") - 1)
Text1.Text = AuxVar & "u" & Mid(Me.Text1, InStr(1, Me.Text1, "1") + 1)
Exit For
End If
Next i
End Sub

Ahora si quiere que te sustituya una cadena por un caracter asi como lo tienes te quedaria:
Private Sub Command1_Click()
For i = 1 To Len(Text2)
If Mid(Text2.Text, i, 1) = "2" Then
Text2.Text = "A"
Exit For
End If
Next i
For i = 1 To Len(Text3)
If Mid(Text3.Text, i, 1) = "3" Then
Text3.Text = "j"
Exit For
End If
Next i
End Sub
Nota: Si no es lo que estas pidiendo favor de enviar un mensaje a mi correo como mas detalle y asi te puedo ayudar..saludos!!