한글과 영문을 구분해서 문자열 잘라서 Return

'==================================================
'   한글과 영문을 구분해서 문자열 잘라서 Return
'   호출 방법    :  getCutString(문자열, 원하는 글자수)
' 입력 파라메터: strData(문자열,int글자)
'==================================================
Function getCutString(strString, intCutLen)
    Dim intLen '// 문자열 길이
    Dim intByte '// byte 수
    Dim strCutString
    Dim strRes
    Dim strChar
    Dim intX
    intLen = 0
    intByte = 0
    strRes = ""
    if IsNULL(strString) then
     intLen = 0
    else
     intLen = Len(trim(strString))
    end if
      

    For intX = 1 to intLen
        strChar = ""
        strCutString = Mid(strString, intX, 1)        '//    일단 1만큼 잘라서 strCutString에 저장한다.
        strChar = Asc(strCutString)        '//    아스키 코드값 읽어오기
        strChar = Left(strChar, 1)
        If strChar = "-" Then            '//    "-"이면 2바이트 문자임
            intByte = intByte + 2
        Else
            intByte = intByte + 1
        End If
        If intCutLen < intByte Then
            '// 현재 문자열 byte 수가 지정한 byte 수보다 크면 For 문을 빠져나간다.
            strRes = strRes & "..."
            Exit For
        Else
            '// 현재 문자열 byte 수가 지정한 byte 수보다 작으면 strRes 에 잘라낸 문자열을 추가한다.
            strRes = strRes & strCutString
        End If
    Next
    getCutString = strRes
End Function