Imports System

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        'Console.WriteLine("Hello World")   

​

        Dim input = ""

        Dim output = ""

    'Console.WriteLine("Hello World")

        input = "<script>sdfdf.dsf89  08()=(=(sadfJ</script>JLef@ssyd+d-€sdöf////fj()=/§(§&/(\""&sdfdf.dsf8908()=(=(sadfJJLef@ss*  &  yd€sdöf////fj()=/§(§&/(\&sdfdf.dsf8908()=(=(sadfJJLef@ssyd€sdöf"

        output = Regex.Replace(input, "[^\w\s\.+()@-]", "")

        Console.WriteLine("Out put is " & output )

    End Sub

End Module