Option Explicit

Dim goMsgBySheet As New cMsgBySheet

Sub call_cMsgBySheet_Initialize()

  MsgBox _
    goMsgBySheet.Initialize( _
      getSysParaBySheet(ActiveSheet.Name, "D05P1M01"), _
      getSysParaBySheet(ActiveSheet.Name, "D05P1M02"), _
      getSysParaBySheet(ActiveSheet.Name, "D05P1M03") _
    )

End Sub

Sub call_cMsgBySheet_getStatus()

  MsgBox _
    goMsgBySheet.getStatus( _
    )

End Sub

Sub call_cMsgBySheet_getMessage()

  MsgBox _
    goMsgBySheet.getMessage( _
    )

End Sub
Sub call_cMsgBySheet_MessageBox()

  MsgBox _
    goMsgBySheet.MessageBox( _
    )

End Sub

Sub call_cMsgBySheet_YesNoBox()

  Dim liPriorityButton As Integer
  If (getSysParaBySheet(ActiveSheet.Name, "D05P1M04") = "YES") Then
    liPriorityButton = vbYes
  Else
    liPriorityButton = vbNo
  End If
  
  MsgBox _
    goMsgBySheet.YesNoBox( _
      liPriorityButton _
    )

End Sub

Sub call_cMsgBySheet_getMsgGroup()

  MsgBox _
    goMsgBySheet.getMsgGroup( _
    )

End Sub

Sub call_cMsgBySheet_isLevelError()

  MsgBox _
    goMsgBySheet.isLevelError( _
    )

End Sub

Sub call_cMsgBySheet_isLevelWarning()

  MsgBox _
    goMsgBySheet.isLevelWarning( _
    )

End Sub

Sub call_cMsgBySheet_isLevelNormal()

  MsgBox _
    goMsgBySheet.isLevelNormal( _
    )

End Sub

Sub call_cMsgBySheet_Terminate()

  MsgBox _
    goMsgBySheet.Terminate( _
    )

End Sub