Imports System.Text.RegularExpressions
 
Module Module1
    Sub Main()
        ' Input string.
        Dim regex As Regex = New Regex("[a-zA-Z0-9]|(\u00a9|\u00ae|[\u2000-\u3300]|\ud83c[\ud000-\udfff]|\ud83d[\ud000-\udfff]|\ud83e[\ud000-\udfff])")
        Dim matches As MatchCollection = regex.Matches("Hello World 1 2 3 4 5 😀😀©🔀  !@#$@#%$#$^#$®^$$ sdfdsa;fjl nas;lkf asdfklasd;f asdf as;dlfjads ;lfkj ;lkjasd f;ladsjf ;lkj;l sadf ;lkasdfl akdsf")
    	Dim cleanText as new System.Text.StringBuilder()
        For Each m As Match In matches
            For Each c As Capture In m.Captures
    			cleanText.Append(c.Value)
            Next
        Next
       Console.WriteLine(cleanText.ToString())
    End Sub
End Module
 
 
 
 

SW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKCk1vZHVsZSBNb2R1bGUxCiAgICBTdWIgTWFpbigpCiAgICAgICAgJyBJbnB1dCBzdHJpbmcuCiAgICAgICAgRGltIHJlZ2V4IEFzIFJlZ2V4ID0gTmV3IFJlZ2V4KCJbYS16QS1aMC05XXwoXHUwMGE5fFx1MDBhZXxbXHUyMDAwLVx1MzMwMF18XHVkODNjW1x1ZDAwMC1cdWRmZmZdfFx1ZDgzZFtcdWQwMDAtXHVkZmZmXXxcdWQ4M2VbXHVkMDAwLVx1ZGZmZl0pIikKICAgICAgICBEaW0gbWF0Y2hlcyBBcyBNYXRjaENvbGxlY3Rpb24gPSByZWdleC5NYXRjaGVzKCJIZWxsbyBXb3JsZCAxIDIgMyA0IDUg8J+YgPCfmIDCqfCflIAgICFAIyRAIyUkIyReIyTCrl4kJCBzZGZkc2E7ZmpsIG5hcztsa2YgYXNkZmtsYXNkO2YgYXNkZiBhcztkbGZqYWRzIDtsZmtqIDtsa2phc2QgZjtsYWRzamYgO2xrajtsIHNhZGYgO2xrYXNkZmwgYWtkc2YiKQogICAgCURpbSBjbGVhblRleHQgYXMgbmV3IFN5c3RlbS5UZXh0LlN0cmluZ0J1aWxkZXIoKQogICAgICAgIEZvciBFYWNoIG0gQXMgTWF0Y2ggSW4gbWF0Y2hlcwogICAgICAgICAgICBGb3IgRWFjaCBjIEFzIENhcHR1cmUgSW4gbS5DYXB0dXJlcwogICAgCQkJY2xlYW5UZXh0LkFwcGVuZChjLlZhbHVlKQogICAgICAgICAgICBOZXh0CiAgICAgICAgTmV4dAogICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoY2xlYW5UZXh0LlRvU3RyaW5nKCkpCiAgICBFbmQgU3ViCkVuZCBNb2R1bGUKCgoK