Visual Basic - InputBox solo acepte números

Private Sub Command1_Click()

 Dim Dato As String

'Hasta que no se ingrese un NUMERO'

'el InputBox no se cerrará'

Do

Dato = InputBox("Ingresar NUMERO", " Ejemplo ")

Loop Until IsNumeric(Dato)

'Muestra el NUMERO'

MsgBox Dato, vbInformation

End Sub

If Dato = "" Then

Exit Sub

End

End If

Private Sub Command1_Click()

Dim Dato As String

'Hasta que no se ingrese un NUMERO'

'el InputBox no se cerrará'

Do

Dato = InputBox("Ingresar NUMERO", " Ejemplo ")

'si se pulsa boton cancelar la variable dato valdra nulo'

'si esto ocurre salimos del sub'

If Dato = "" Then

Exit Sub

End

End If

Loop Until IsNumeric(Dato)

'Muestra el NUMERO'

MsgBox Dato, vbInformation

End Sub

Private Sub Command1_Click()

Dim Dato As String

Do

Dato = InputBox("Ingresar NUMERO", " Ejemplo ")

If StrPtr(Dato) = 0 Then

MsgBox "pulsaste CANCELAR adios!"

Exit Sub

End If

Loop Until IsNumeric(Dato)

MsgBox Dato, vbInformation

End Sub

Dim c As Boolean

c = False

Do

    Tomos = InputBox("INGRESE CANTIDAD DE TOMOS .", "RECIBIENDO EMPASTADOS")

    If Tomos = "" Then Exit Sub

    If Tomos = " " Then Exit Sub

    If IsNumeric(Tomos) Then

        If Tomos > 0 Then

            c = True

        End If

    End If

Loop While c = False