Dim voornaam 
Dim naam
Dim klas
Dim gebdatum
Dim straatnr
Dim postnr
Dim leeftijd
Dim msg
voornaam = InputBox("Welke is je voornaam")
naam = InputBox("Welke is je naam")
straatnr = InputBox("Geef je straat en nr")
postnr = InputBox ("Geef je postnummer")
gemeente = Inputbox("Geef je gemeente")
gebdatum = InputBox("Geef je geboortedatum (dd/mm/yyy)")
msg = "Je heet " & voornaam & " " & naam & vbcrlf
msg = msg & straatnr & vbcrlf
msg = msg & postcode & " " & gemeente & vbcrlf
leeftijd=DateDiff("yyyy",gebdatum,Now)
msg= msg & "Je bent " & leeftijd & " jaar"
msgbox msg