이메일 유효성 체크

Function IsValidEmail(strEmail)
        Dim bIsValid
        bIsValid = True
        
        If Len(strEmail) < 5 Then
                bIsValid = False
        Else
                If Instr(1, strEmail, " ") <> 0 Then
                        bIsValid = False
                Else
                        If InStr(1, strEmail, "@", 1) < 2 Then
                                bIsValid = False
                        Else
                                If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
                                        bIsValid = False
                                End If
                        End If
                End If
        End If
 
        IsValidEmail = bIsValid
End Function