dim buffer
buffer = inputbox("Tik wat in","Inputbox demo","standaardwaarde")
msgbox buffer,vbinformation,"InputBox demo"