Foutmelding maken voor alleen cijfers

[Visual112]

Private Sub cmdhogetarief_Click()
'declaratie van waarden
Dim hogeinvoerS As String
Dim hogeinvoer As Double
Dim hogeuitvoerS As String
Dim hogeuitvoer As Double

'inlezen van scherm
hogeinvoerS = txthogeinvoer.Text
hogeinvoer = Val(hogeinvoerS)

'bereken
hogeuitvoer = hogeinvoer * 1.19

'foutmelding
If txthogeinvoer.Text = "a" Then
MsgBox ("Je mag alleen cijers invullen")
End If



'schrijven naar scherm
hogeuitvoerS = Str(hogeuitvoer)
txthogeuitvoer.Text = hogeuitvoerS
End Sub

mijn vraag is bij foutmelding wil ik dat je alleen cijfers kan invullen,ben nog niet tegengekomen hoe dit moet heeft iemand daar een antwoord voor.

bij voorbaat dank

 

[franzeman]

Kun je hier wat mee?

Sub Is_Numeric()

Dim Msg As String

    If ActiveCell.Value = "" Then
        Exit Sub
    End If
    If IsNumeric(ActiveCell.Value) Then
        MsgBox ("Gebruik jouw code ...")
    Else
        MsgBox ("Je mag alleen cijers invullen!")
    End If
    
End Sub
[code]

Groetjes van franzeman