xlsvbah4.1

Attribute VB_Name = "mod1Oefeningen"

Sub Oefening1()

    MsgBox "Hello World", vbInformation

End Sub

Sub Oefening2()

    InputBox ("Geef een getal op")

End Sub

Sub Oefening3()

    Dim Tekst
    
    Tekst = InputBox("Geef een tekst op")
    
    MsgBox Tekst

End Sub


Download hier het bestand.