xlsvbah5.3

Attribute VB_Name = "mod3Antwoorden"

Sub Antwoord1()

    MsgBox "Fout", vbCritical

End Sub

Sub Antwoord2()

    InputBox "Geef een datum op", , Date

End Sub

Sub Antwoord3()

    Dim Datum
    
    Datum = InputBox("Geef een datum op", , Date)
    
    MsgBox "Vandaag is het " & Datum

End Sub

Sub Antwoord4()

    Dim Bericht
    
    Bericht = MsgBox("Wilt u doorgaan?", vbYesNo + vbInformation)
    
    MsgBox Bericht

End Sub