Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub Letters()
Dim answer As VbMsgBoxResult
Dim VolgendeLetter As String
For i = 1 To 27
VolgendeLetter = chr(64 + i)
answer = MsgBox(VolgendeLetter & _
IIf(i = 27, "laat dan maar]", vbCr & "snap je het?"), _
(vbQuestion + vbYesNo) * Abs(i < 27))
If answer = vbYes Then
MsgBox "Mooi!"
Exit For
End If
Next i
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.