' ********************************************************** ' メッセージボックス ' ********************************************************** Sub MsgOk( strValue ) MsgBox( strValue ) End Sub