Sub EditText1_TextChanged (Old As String, New As String)
    If ContieneCaratteriNonConsentiti(New) Then
        EditText1.Text = Old ' 🔁 Ripristina il testo precedente
        ToastMessageShow("Carattere non valido!", False)
    End If
End Sub
' Funzione di esempio che controlla simboli vietati
Sub ContieneCaratteriNonConsentiti(testo As String) As Boolean
    Dim pattern As String = "[^a-zA-Z0-9 ]" ' Solo lettere, numeri e spazi
    Dim m As Matcher
    m = Regex.Matcher(pattern, testo)
    Return m.Find
End Sub