Öffnet ein Pop-Up Fenster und zeigt einen Infotext an und eine Zeile zur Eingabe von Text:
Dim sReturn
sReturn = InputBox("Wann war heute der Sonnenaufgang ?", "Frühaufsteher-Wissen", "07:30")
MsgBox "Folgendes kam als Antwort :" & vbcrlf & sReturn , vbOK
Syntax:
sReturn = InputBox(sInfoText [, sTitel ] [, sVorgabewert]
sInfoText: Meldung im Dialogfenster
sTitel (optipnal): Fenstertitel
sVorgabewert (optipnal): Eingabefeld ist damit vorbelegt.