Imports Microsoft.VisuaLBasic
Dim pbstrDenpyoToiawase(1)
ints = UBound(pbstrDenpyoToiawase, 2)
Dim Msg, Style, Title, Help, Ctxt, Response, MyString As String
Msg = "Do you want to continue ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)