vba设置条件，文本框里面，符号@前后有其他特殊符号就弹框提醒

请教大家，因为工作需要，文本框要入邮件地址，但@的前后不可以有特殊符号，想设置如果@前后有特殊符号就弹框提醒，请问可以怎样设置条件。

Function IsSymbo(String s) As Boolean
IsSymbo = False
If Asc(s) >= 'A' And Asc(s) <= 'Z' Then Exit Function
If Asc(s) >= 'a' And Asc(s) <= 'z' Then Exit Function
If Asc(s) >= '0' And Asc(s) <= '9' Then Exit Function
IsSymbo = True
End Function
Sub Macro1()
s = Text1.Text
arr = Split(s, "@")
if IsSymbo(Left(arr(0),1)) Or  IsSymbo(Right(arr(1),1)) Then
MsgBox "有特殊符号"
End If
End Sub