Imports System
Public Class Program
Private Shared Function concatenate_replace(ByVal str As String) As String
str = str.Substring(7).Replace("multi", "MULTI").Replace("paradigm", "")
Return str
End Function
Public Shared Sub Main(ByVal args As String())
Dim str As String = "Visual Basic .NET, is a multi-paradigm, object-oriented programming language"
str = concatenate_replace(str)
Console.Write(str)
End Sub
End Class
' run:
'
' Basic .NET, is a MULTI-, object-oriented programming language
'