[VB] Waarschuwing invoegen

[ajampaniki]

Volgende programma heb ik al uitgetypt:

code:

Private Sub cmdBepaalKleinste_Click()
Dim strGetal1 As String
Dim strGetal2 As String
Dim strGetal3 As String
Dim strGetal4 As String
Dim Getal(4) As Double
Dim kleinste As Double
Dim sukkel As String

strGetal1 = txtGetal1.Text
strGetal2 = txtGetal2.Text
strGetal3 = txtGetal3.Text
strGetal3 = txtGetal4.Text

Getal(1) = Val(strGetal1)
Getal(2) = Val(strGetal2)
Getal(3) = Val(strGetal3)
Getal(4) = Val(strGetal4)

kleinste = Getal(1)
If Getal(2) < kleinste Then
    kleinste = Getal(2)
      If Getal(3) < kleinste Then
      kleinste = Getal(3)
        If Getal(4) < kleinste Then
        kleinste = Getal(4)
        End If
      End If
    End If
    
    txtKleinste = Str(kleinste)

End Sub

Nou moet ik dus een waarschuwing invoegen dat als in de textvakjes nniet een getal maar gewoon letters worden ingevoegd er in een textboxje een kleine waarschuwing komt te staan. Iemand die weet hoe.

[whoami]

Ga eens vlug een tutorial doen of de manual lezen.
MsgBox enzo.
Trouwens, een getal opslaan in een string?