한글과 영문을 구분해서 문자열의 길이를 Return

'==================================================
'   한글과 영문을 구분해서 문자열의 길이를 Return
'   호출 방법    :  getLength(문자열)
' 입력 파라메터: strData(문자열)
'==================================================
Function getLength(strData)
Dim nLen ' 문자열 길이값
Dim i
 nLen = 0
 if Len(strData) > 0 then
  for i = 1 to Len(strData)
   if Asc(Mid(strData,i,1)) < 0 then
    nLen = nLen + 2
   else
    nLen = nLen + 1
   end if
  next
 end if
 getLength = nLen
End Function