Você pode utilizar uma função para verificar se é email válido, se pesquisar na net encontrara varios tipos, mas um deles seria este :

Fonte:
como validar email vba
http://www.maximoaccess.com/t7429-como- ... -email-vba

Cole a function abaixo em seu form ou um módulo :

Public Function valEmail(ByVal cEmail As String) As Boolean

    valEmail = True

    Dim nUser As Variant
    nUser = Split(cEmail, "@")

    If UBound(nUser) < 1 Or UBound(nUser) > 1 Or Len(nUser(0)) < 1 Then
        valEmail = False
    Else
        Dim nServer As Variant
        nServer = Split(nUser(1), ".")
        If UBound(nServer) < 1 Or Len(nServer(LBound(nServer))) < 1 Or Len(nServer(UBound(nServer))) < 1 Then
            valEmail = False
        End If
    End If

End Function

E supondo que seu textbox tenha o nome txtEmail utilize a instrução abaixo, veja que está no evento do Botão CommandButton1, ajuste para o seu :

Private Sub CommandButton1_Click()

    If valEmail(txtEmail) = False Then
    
            MsgBox "Email inválido"
    Else
           MsgBox "Email Válido ... Prossegue..."
    End If

End Sub