Visual Basic para Aplicaciones - Solo Números!!

Hola a todos !!

Mi problema es el siguiente:

¿Alguien sabe una función que compruebe si el contenido de un cuadro de texto es un valor numérico? es decir, que si hay alguna letra muestre una mensaje de error... (vb6.0)

Gracias.
Un saludo.

En un modulo inserta el siguiente codigo

Public Longitud As Integer
Public Caracter As String
Public Sitio As Integer
Public Letras As String
Public I As Integer
Public Function Comprobar(Texto As String) As String
Sitio = 1
Comprobar = "Solo hay caracteres numéricos"
Longitud = Len(Texto)
For I = 1 To Longitud
Caracter = Mid(Texto, Sitio, 1)
If IsNumeric(Caracter) = False Then
Comprobar = "Hay caracteres no numéricos"
Exit For
Else
Sitio = Sitio + 1
End If
Next I
Caracter = ""
End Function

En el Evento Change de tu TextBox inserta el siguiente código

Private Sub TextBox1_Change()
Letras = Comprobar(TextBox1.Text)
MsgBox Letras
End Sub

Ahora, si lo que quieres es que el usuario solo pueda entrar valores numericos inserta el siguiente codigo en el evento Keypress del textbox

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then
SendKeys "{BackSpace}"
End If
End Sub

Saludos