vba check email format

Function IsValidEmail(email As String) As BooleanDim regex As ObjectDim pattern As StringDim parts() As StringDim domainPart As String ' Initialize the regex object Set regex = CreateObject("VBScript.RegExp") ' Define the…