InputBox Function
αααα αΆαβαααα’ααβαααα αΌαβαααα»αβαααα’ααβαα½α αααβα’αααβααααΎβα’αΆα βαααα αΌαβα’αααααΒ α ααααααΆαβαααα αΌαβααααΌαβααΆαβαααααβαα βα’αααβαα½αΒ α
InputBox statement ααΊβααΆβαα·ααΈααΆαααααβααβααΆαβαααα½αβαααα»αβααΆαβαααα αΌαβα’αααααβααΆαβαααβαααα’ααβαα½αΒ α α’αα’αΆαβααααααΆαβαααα αΌαβαααβα α»α β ααααααα α¬ββα α»α αααα‘ααΒ α ααααααΆαβαααα αΌαβααααΌαβααΆαβαααα‘ααβααΆβαααααβαααα‘ααβα’αα»ααααΒ α ααααα·αβααΎβα’αααβαα·αβαααα’ααβααΆαα½αβ ααααααβ InputBox αααα‘ααβααααβα’ααααβααααααβααΌααα ("")Β α
ααΆαααβααααααα α
InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]])
αααααβαααα‘αα α
ααααβα’αααα
αααΆαααΆαααααα α
Msg α ααααααβααααβα’ααααβαααβαααα αΆαβααΆβααΆαβαααα»αβαααα’ααΒ α
α αααααΎα α ααααααβααααβα’ααααβαααβαααα αΆαβαααα»αβαααΆαβα αααααΎαβααβαααα’ααΒ α
ααααΆαααΎα α ααααααβααααβα’ααααβαααβααΆαβαααα αΆαβαααα»αβαααα’ααβα’αααααββααΆβααααΆαααΎα ααααα·αβααΎβααααΆαβααααααΆαβαααα αΌαβαααααβαααβααααΌαβααΆαβαααααΒ α
x_pos α ααααααβα ααα½αβαααβαααβαααααΆααββαααα’α·αβααΈααΆααβαααααβααβαααα’ααΒ α ααΈααΆααβααΊβααΆβααΌα’αααααβααΆα αβααΆα αα·αβαα·αβαααβαα βαααα’α½α βααβαααααα·ααΈβααΆαα·ααΆαααΒ α
ααΈααΆαα_y α ααααααβα ααα½αβαααβαααβαααααΆααβααΈααΆααβαααααβααβαααα’ααΒ α ααΈααΆααβααΊβααΆβααΌα’αααααβααΆα αβααΆα αα·αβαα·αβαααβαα βαααα’α½α βααβαααααα·ααΈβααΆαα·ααΆαααΒ α
ααααα·αβααΎββ x_pos αα·αy_pos βααααΌαβααΆαβαα»αβ αααα’ααβααααΌαβααΆαβααΆααβββαα βα αβαααααΆαβα’ααααααΒ α ααΈααΆααβααααΌαβααΆαβαααααΆααβαα·αβααΆ ααααΈαΒ α
α§ααΆα ααα α
Sub ExampleInputBox
Dim sText As String
sText = InputBox ("Please enter a phrase:","Dear User")
MsgBox ( sText , 64, "Confirmation of phrase")
End Sub