○メッセージボックス


Dim str
str=inputbox "文字列を入力するメッセージボックス 
str=MsgBox "OKCancelメッセージボックス",vbOKCancel
str=MsgBox "YesNoCancelメッセージボックス",vbYesNoCancel
str=MsgBox "メッセージボックス",vbOKOnly




'メッセージボックスの戻り値

'vbOK          1	OK 
'vbCancel      2	Cancel 
'vbAbort       3	Abort 
'vbRetry       4	Retry 
'vbIgnore      5	Ignore 
'vbYes         6	Yes 
'vbNo          7	No