Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Sub Main()
Dim str As String = "vb 12 c++ (java) *$%*&^python"
str = Regex.Replace(str, "[^0-9a-zA-Z]+", "")
Console.WriteLine(str)
End Sub
End Class
' run:
'
' vb12cjavapython
'