Function Num2Kor(XXX) As String
    Dim strInput As String
    Dim strOutput As String
    Dim strTemp As String
    Const strChar As String = "ÀÏÀÌ»ï»ç¿ÀÀ°Ä¥Æȱ¸"
    Dim i As Integer
    Dim intLen As Integer
    Dim blnOK As Boolean
    strInput = CStr(XXX)
    intLen = Len(strInput)

    For i = intLen To 1 Step -1
        strTemp = Mid(strInput, intLen - i + 1, 1)
        If Val(strTemp) <> 0 Then
            strOutput = strOutput & Mid(strChar, Val(strTemp), 1)

            Select Case i Mod 4
                Case 0: strOutput = strOutput & "õ"
                Case 3: strOutput = strOutput & "¹é"
                Case 2: strOutput = strOutput & "½Ê"
            End Select
            blnOK = True
        End If

        If blnOK Then
        Select Case i
            Case 13
                strOutput = strOutput & "Á¶"
                blnOK = False
            Case 9
                strOutput = strOutput & "¾ï"
                blnOK = False
        Case 5
                strOutput = strOutput & "¸¸"
                blnOK = False
        End Select
        End If
    Next i
    Num2Kor = strOutput & " ¿øÁ¤"
End Function