Imports System
Imports System.Text.RegularExpressions
Public Class Program
Public Shared Function remove_vowels(ByVal str As String) As String
Return Regex.Replace(str, "[aeiouAEIOU]", "")
End Function
Public Shared Sub Main()
Dim str As String = "C++ C-Sharp PHP Java Python VB.NET Rust"
Console.Write(remove_vowels(str))
End Sub
End Class
' run
'
' C++ C-Shrp PHP Jv Pythn VB.NT Rst
'