Visual Basic - Validacion cajas texto.urgente

Hola, estoy haciendo una aplicación en VB6 y a la hora de depurar las cajas de texto, en las que me interesa las valido con la función IsNumeric(text1) que te devuelve true o false, pero devuelve true cuando sea todo numeros y yo lo quiero cuando aunque sea haiga algun numero, un saludo y gracias

Esta forma es un poco rudimentaria y poco bonita pero creo que valdra.
Lo que hace es recorrer la cadena y comparando una a una los caracteres viendo si son numeros, si encuentra un numero sale del for e imprime un msgbox diciendo k hay un numero en cadena :D
Lo puedes modificar a tu gusto y mejorarlo, solo es una idea rápida (*^_^*)


Private Sub Command1_Click()
Dim tot As Integer
Dim numero As Integer
numero = 0
tot = Len(Me.Text1)
For i = 1 To tot
If IsNumeric(Mid(Me.Text1, i, 1)) = True Then
numero = 1
i = tot
End If
Next
If numero = 1 Then
MsgBox ("Existe un numero en la cadena")
Else
MsgBox ("No existe ningun numero en la cadena")
End If
End Sub