Da forma que o Trindade fez, seria um boa opção.
Se o usuario inserir um email invalido, retorna um valor vazio e muda a cor de fundo do seu Textbox:
Private Sub TextBoxEmail_Change()
If TextBoxEmail.Text = Email(Me.TextBoxEmail.Text) Then
With TextBoxEmail
.BackColor = RGB(255, 255, 255)
End With
Else
With TextBoxEmail
.BackColor = RGB(255, 163, 163)
End With
End If
End Sub
Click em se a resposta foi util!
Postado : 14/09/2015 7:34 am