Attribute VB_Name = "ModMsg"
Option Explicit
Dim Msg As String, Style1 As String, Style2 As String, Style3 As String, style4 As String
Dim Title  As String

Function gMsgCall(sType$) As Integer

    Style1 = vbYesNoCancel + vbQuestion + vbDefaultButton1
    Style2 = vbOKOnly + vbExclamation
    Style3 = vbYesNo + vbQuestion + vbDefaultButton1
    style4 = vbYesNo + vbQuestion + vbDefaultButton2 ' 2005/01/11 KTH Ãß°¡
    
    Select Case Trim$(sType)
        Case "1"
            Msg = "¼öÁ¤ ÇϽðڽÀ´Ï±î?"
            Title = "¼öÁ¤ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style1, Title)
        Case "2"
            Msg = "»èÁ¦ ÇϽðڽÀ´Ï±î?"
            Title = "»èÁ¦ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style1, Title)
        Case "3"
            Msg = "µî·Ï ÇϽðڽÀ´Ï±î?"
            Title = "µî·Ï È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style1, Title)
        Case "4"
            Msg = "³¯Â¥¸¦ È®ÀÎÇϽʽÿä!"
            Title = "³¯Â¥ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "5"
            Msg = "´ã´çÀÚÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "´ã´çÀÚÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "6"
            Msg = "ȸ¿øÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "ȸ¿øÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "7"
            Msg = "ÇüÅÂÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "ÇüÅÂÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "8"
            Msg = "¿©Çà»çÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "¿©Çà»çÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "9"
            Msg = "°´½Ç¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "°´½Ç¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "10"
            Msg = "¸ÅÃâÇ׸ñÄڵ尡 ÀԷµÇÁö ¾Ê¾Ò½À´Ï´Ù."
            Title = "È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "11"
             Msg = "±¹ÀûÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "±¹ÀûÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "12"
            Msg = "¿¹¾à¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "¿¹¾à¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "13"
            Msg = "¿©ÇàÁ¾·ùÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "¿©ÇàÁ¾·ùÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "14"
            Msg = "Åõ¼÷¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "Åõ¼÷¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "15"
            Msg = "ÄíÆù¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "ÄíÆù¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "16"
            Msg = "BILL¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "BILL¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "17"
            Msg = "¾÷ÀåÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "¾÷ÀåÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "18"
            Msg = "¸Þ´ºÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "¸Þ´ºÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "19"
            Msg = "°Ë»öµÈÀÚ·á°¡ ¾ø½À´Ï´Ù! "
            Title = "È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "20"
            Msg = "ù¹ø° ÀÚ·áÀÔ´Ï´Ù."
            Title = "ÀÌÀü"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "21"
            Msg = "¸¶Áö¸· ÀÚ·áÀÔ´Ï´Ù."
            Title = "ÀÌÈÄ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "22"
            Msg = "CASH ±Ý¾×À» È®ÀÎÇϽʽÿä!"
            Title = "CASH È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "23"
            Msg = "CARD ±Ý¾×À» È®ÀÎÇϽʽÿä!"
            Title = "CARD È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "24"
            Msg = "Ä«µå¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "Ä«µå¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "25"
            Msg = "½ÂÀιøÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "½ÂÀιøÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "26"
            Msg = "ÇҺΰ³¿ù¼ö¸¦ È®ÀÎÇϽʽÿä!"
            Title = "ÇҺΰ³¿ù¼ö È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "27"
            Msg = "´Ü°¡¸¦ È®ÀÎÇϽʽÿä!"
            Title = "´Ü°¡ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "28"
            Msg = "ÀÚ·á°¡ ÀÌ¹Ì µî·ÏµÇ¾îÀÖÀ¸¹Ç·Î ÀçÀÔ·ÂÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù.!"
            Title = "ÀÚ·á Áߺ¹ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "29"
            Msg = "ÀÚ·á°¡ ÀÌ¹Ì »èÁ¦µÇ¾îÀÖÀ¸¹Ç·Î ¼öÁ¤ÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù.!"
            Title = "ÀÚ·á ¼öÁ¤ ºÒ°¡"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "30"
            Msg = "VOIDµÈ BILLÀÔ´Ï´Ù.!"
            Title = "ÀÚ·á Á¶È¸ ºÒ°¡"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "31"
            Msg = "ÇÒÀÎÀ²À» È®ÀÎÇϽʽÿä.!"
            Title = "ÇÒÀÎÀ² È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "32"
            Msg = "ÀÏ°ýó¸®ÇϽðڽÀ´Ï±î?"
            Title = "ÀÏ°ýó¸®È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style1, Title)
        Case "34"
            Msg = "ȸ±â¿¬µµ°¡ µî·ÏµÇ¾îÀÖÁö ¾Ê½À´Ï´Ù!"
            Title = "ÀÏÀÚÈ®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "35"
            Msg = "ȸ±â¿¬±â°£°ú Ʋ¸³´Ï´Ù!"
            Title = "ÀÏÀÚÈ®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "36"
            Msg = "ȸ¿ø±ÇÀ» È®ÀÎÇϽʽÿä!"
            Title = "ȸ¿ø±Ç È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "37"
            Msg = "Áֹεî·Ï¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "Áֹεî·Ï¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "38"
            Msg = "»ç¾÷ÀÚµî·Ï¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "»ç¾÷ÀÚµî·Ï¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "39"
            Msg = "ÄܵµÄڵ带 È®ÀÎÇϽʽÿä!"
            Title = "ÄܵµÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "40"
            Msg = "ÆòÇüÀ» È®ÀÎÇϽʽÿä!"
            Title = "ÆòÇü È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "41"
            Msg = "Çʼö ÀԷ³»¿ëÀ» È®ÀÎÇϽʽÿä!"
            Title = "Çʼö ÀÔ·Â È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "42"
            Msg = "ÀÔ·Â Çü½ÄÀ» È®ÀÎÇϽʽÿä!"
            Title = "ÀÔ·ÂÇü½Ä È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "43"
            Msg = "¾÷Á¾Äڵ带 È®ÀÎÇϽʽÿä!"
            Title = "¾÷Á¾ÄÚµå È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "44"
            Msg = "¾îÀ½¹øÈ£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "¾îÀ½¹øÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "45"
            Msg = "ÇҺαݾ×ÀÌ ³»¿ª°ú ¸ÂÁö ¾Ê½À´Ï´Ù."
            Title = "ÇҺγ»¿ª È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "46"
            Msg = "Àü»ê Àå¾Ö·Î ÀÎÇÏ¿© 󸮰¡ ¿Ï·áµÇÁö ¾Ê¾Ò½À´Ï´Ù." _
                & Chr(13) & "Àü»ê °ü¸®ÀÚ¿¡°Ô ¹®ÀÇ ÇϽʽÿä."
            Title = "½Ã½ºÅÛ ¿¡·¯"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "47"
            Msg = "±Ý¾×À» È®ÀÎÇϽʽÿä."
            Title = "È® ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "48"
            Msg = "ÀڷḦ »ý¼º½ÃÅ°°Ú½À´Ï±î?"
            Title = "È® ÀÎ"
            gMsgCall = MsgBox(Msg, Style1, Title)
        Case "49"
            Msg = "½Ã°£¸¦ È®ÀÎÇϽʽÿä!"
            Title = "½Ã°£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, Style2, Title)
        Case "50"
            Msg = "¿ä±ÝÀ» ÀÚµ¿»ý¼º ÇϽðڽÀ´Ï±î ?"
            Title = "ÀÚµ¿ »ý¼º"
            gMsgCall = MsgBox(Msg, Style3, Title)
        Case "51" ' 2005/01/11 KTH Ãß°¡(ÇØÇÇÄ«µå °í°´µî·Ï, ½ÃÁð±Ç °í°´µî·Ï ÁֹιøÈ£¶õ¿¡ ¿Ü±¹ÀιøÈ£ µî·Ï)
            Msg = "¿Ü±¹ÀÎ µî·Ï¹øÈ£ ÀԴϱî?"
            Title = "ÁֹιøÈ£ È®ÀÎ"
            gMsgCall = MsgBox(Msg, style4, Title)
    End Select

End Function