Dim found3
strEmail = “YourEmailAddress@none.com”
Complex3()
msgbox found3
Function Complex3()
Dim found3_1, found3_2
found3 = “false”
‘!
If InStr(strEmail, “@”) <> 0 Then
found3_1 = “true”
else
found3_1 = “false”
End If
If InStr(strEmail, “.”) <> 0 Then
found3_2 = “true”
else
found3_2 = “false”
End If
found3 = found3_1 AND found3_2
end function
