This coding verifies if an Email Is Correct, where is the Next without a For, or coding error?

[HobbledeHoy]

This coding verifies if an Email Is Correct, where is the Next without a For, or coding error?

Function IsEmailValid(strEmail As String) As Boolean
Dim strArray As Variant
Dim strItem As Variant
Dim i As Long
Dim c As String
blnIsItValid = True
i = Len(strEmail) - Len(Application.Substitute(strEmail, "@", ""))
If i <> 1 Then IsEmailValid = False: Exit Function
ReDim strArray(1 To 2)
strArray(1) = Left(strEmail, InStr(1, strEmail, "@", 1) - 1)
strArray(2) = Application.Substitute(Right(strEmail, Len(strEmail) - _
    Len(strArray(1))), "@", " ")
For Each strItem In strArray
    If Len(strItem) <= 0 Then
    blnIsItValid = False
    IsEmailValid = blnIsItValid
    Exit Function
End If
For i = 1 To Len(strItem)
    c = LCase(Mid(stItem, i, 1))
    If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 _
    And Not IsNumeric(c) Then
    blnIsItValid = False
    IsEmailValid = blnIsItValid
    Exit Function
End If
Next i
If Left(strItem, 1) = "." Or Right(strItem, 1) = "." Then
    blnIsItValid = False
    IsEmailValid = blnIsEmailValid
    Exit Function
Next strItem
If InStr(strArray(2), ".") <= 0 Then
     blnIsItValid = False
     IsEmailValid = blnIsItValid
     Exit Function
End If
i = Len(strArray(2)) - InStrRev(strArray(2), ".")
If i <> 2 And i <> 3 And i <> 4 Then
    blnIsItValid = False
    IsEmailValid = blnIsItValid
    Exit Function
End If
If InStr(strEmail, "..") > 0 Then
    blnIsItValid = False
    IsEmailValid = blnIsItValid
    Exit Function
End If
IsEmailValid = blnIsItValid
End Function

 

[FormR]

Welcome to the board.

This section, needs an End If

If Left(strItem, 1) = "." Or Right(strItem, 1) = "." Then
    blnIsItValid = False
    IsEmailValid = blnIsEmailValid
    Exit Function
End If
Next strItem

 

[HobbledeHoy]

Welcome to the board.

This section, needs an End If

If Left(strItem, 1) = "." Or Right(strItem, 1) = "." Then
    blnIsItValid = False
    IsEmailValid = blnIsEmailValid
    Exit Function
End If
Next strItem

Thanks, it worked.

I have a dozen questions.

It is returning false when it should be true. Where is it incorrect in the coding? For True to equal a valid email address.

Please explain in laymen terms what the coding represents in modern day English. Instead of accepting it and just programming from my book, I'd rather understand it in full. So a remarkable post would be nice.

I understand the ins and the outs, but the usage of, for example, Instr, Left, an InstrRev confuses me; after going over it in a vba explained website.

Tips and suggestions will be nice. Expect me here for along time while I master excel. It is a headache, but worth it.

 

[FormR]

Honestly, I didn't try to figure out the code was doing - I just looked for the syntax error.

What is the email address that are you trying to validate that returns FALSE?

 

[HobbledeHoy]

Honestly, I didn't try to figure out the code was doing - I just looked for the syntax error.

What is the email address that are you trying to validate that returns FALSE?

This coding verifies if all emails are correct. abc@excel.com should return TRUE

 

[Michael M]

Maybe you modify this function to suit...it also confirms E-Mail Addresses..

Public Function VM(ByVal strEmailAddress As String) As Boolean
    On Error GoTo Catch
     Dim objRegExp As New RegExp, blnIsValidEmail As Boolean
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    objRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
    blnIsValidEmail = objRegExp.Test(strEmailAddress)
    VM = blnIsValidEmail
    Exit Function
 Catch: VM = False
End Function

 

[FormR]

This coding verifies if all emails are correct. abc@excel.com should return TRUE

It returns TRUE for me, how are you calling the function?

Excel Workbook
	A
1	TRUE
Sheet1