Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then 'steht im textfeld eine zahl?
Text1.Text = CStr(Val(Text1.Text) + 1) 'wenn ja, dann erhöhst du den wert um eins
'mit val() wandelst du eine zeichenkette in eine zahl um
'und mit cstr() wandelst du die zahl wieder in eine zeichenkette um.
Else
'wenn keine zahl im textfeld steht, gibst du einen hinweis aus.
MsgBox "Bitte geben Sie nur Zahlen ein.", vbExclamation, "Achtung"
End If
End Sub