Sub Activity_Create(FirstTime As Boolean)
Log(CleanString("Hello - World, how are you?"))
End Sub
Sub CleanString(s As String) As String
Dim sb As StringBuilder
sb.Initialize
For i = 0 To s.Length - 1
If Regex.IsMatch("[\w\s]", s.CharAt(i)) Then
sb.Append(s.CharAt(i))
End If
Next
Return sb.ToString
End Sub