Paradox - VB6, Necidad de ayuda

Ejemplo: Si tengo Text1.text = "hola 10" y en un procedimiento de GostFocus quisiera que me dé resultado como; Text1.text = "hola 0010" ¿Cual seria el código? ¿Me tiraría alguine unos códigos a mi correo? Les estaré eternamente agradecido. Dios los bendiga.

espero te sirva de algo

Private Sub Text1_GotFocus()
Digito = "" 'digito para checar si es numerico
Numero = "" 'Donde se Guarda la parte numerica del texto
Cantidad = 4 'Cantidad Maxima de Digitos
If Me.Text1.Text <> "" Then
For I = 0 To Len(Me.Text1.Text) - 1
Digito = Left(Right(Me.Text1.Text, I + 1), 1)
If IsNumeric(Digito) Then
Numero = Digito & Numero
Else
Exit For
End If
Next
End If

If I > 0 Then
If Len(Numero) < Cantidad Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - I) & String(Cantidad - Len(Numero), "0") & Numero
End If
End If

End Sub

De corazÓn te agradesco Gabriel, el codigo me funciona maravillosamente bien. Una vez má GRACIAS!!!

Atte., desde Paraguay, Marcial Esteche.