Probabilmente stai usando VB.net che è leggermente diverso dalla versione VB6 che uso io. Comunque ti mando questo esempio che dovrebbe aiutarti.
Al posto di gestire l'evento TextChange usa l'evento KeyPress. Tra i valori restituiti dovrebbe esserci il codice Ascii del tasto premuto.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("@") Then
If MsgBox("Carattere non valido!!" & vbCrLf & "Lo vuoi sostituire con '_'?", vbYesNo, "ATTENZIONE:") = vbYes Then
KeyAscii = Asc("_")
Else
KeyAscii = vbNull
End If
End If
End Sub

Spero di averti aiutato, fammi sapere...
Ciao!!