1.
' **********************************************************
2.
' メッセージボックス
3.
4.
Sub
MsgOk( strValue )
5.
6.
MsgBox( strValue )
7.
8.
End
