Dim straal
Dim resultaat
Const pi = 3.14159
straal = Inputbox ("Geef de straal")
resultaat = "De straal is " & straal
resultaat = resultaat & vbcrlf & "De omtrek is " & straal * pi
resultaat = resultaat & vbcrlf & "De oppervlakte is " & straal * straal * pi
Msgbox resultaat, vbInformation