'Copyrightⓒ 2001. ZEOspace. All rights reserved.
'**Start Encode**
Function vbTrim(str)
   vbTrim = Trim(str)
End Function

Function vbReplace(str,find,repWidth)
   vbReplace = replace(str,find,repWidth)
End Function

Function vbRight(str,len)
   vbRight = Right(str,len)
End Function

Function vbLeft(str,len)
   vbLeft = Left(str,len)
End Function

Function vbInstr(str, find)
   vbInstr = Instr(str,find)
End Function

Function vbIsEmail(mailAddress)
   Dim objRegEx, Match, Matches ' 변수를 작성합니다.
   Set objRegEx = New RegExp ' 정규식을 작성합니다.

   ' 패턴을 설정합니다.
   objRegEx.Pattern = "([a-zA-Z0-9._-]+@[a-zA-Z0-9._-]+\.[a-zA-Z0-9.]+)"
   objRegEx.IgnoreCase = True

   '대/소문자 구분 안함을 설정합니다.
   objRegEx.Global = True '현재의패턴이 전역임을 설정합니다.

   Set Matches = objRegEx.Execute(mailAddress) ' 찾기를 실행합니다.

   For Each Match in Matches
      ' Matches 컬렉션을 반복합니다.
      returnStr = returnStr & Match.Value
   Next

   If Len(returnStr) = 0 Then
      vbIsEmail = false
   Else
      vbIsEmail = true
   End If
End Function