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.