Visual Basic - boolean

Gracias por ayudarme.
Necesito crear una función ValidoDto que verifique si se ha ingresado un valor numérico en un textBox, de ser así la función debe devolver el valor booleano Verdadero, de lo contrario Falso. Esta función la debo utilizar en un botón. Si devuelve Verdadero se realiza un descuento caso contrario muestra un mensaje indicando que el valor ingresado no es un número.
También debo validar los valores ingresados en dos TextBox que deben ser numéricos para poder realizar un cálculo.
Desde ya muchas gracias, Mirta

espero te sirva esto Mirta, es para que los textbox no admitan letras

Function numeros(Tecla As Integer) As Integer
Dim strValido As String
strValido = "0123456789"
If Tecla > 26 Then
If InStr(strValido, Chr(Tecla)) = 0 Then
Tecla = 0
End If
End If
numeros = Tecla
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = numeros(KeyAscii)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = numeros(KeyAscii)
End Sub

gracias Juan muy agradecida