Dim tuttoOk As String = ""
Dim testo As String = "questo testo contiene emoji ⛱️? ok ! ciao!# esempio : funziona"
Log(testo)
Dim pattern As String = "[a-z !-/A-Z0-:]+"
Dim matches As Matcher
matches = Regex.Matcher(pattern, testo)
Do While matches.Find
tuttoOk = tuttoOk & matches.Match
Loop
Log(tuttoOk)