Module Module1
Sub Main()
ShowMessage("Hello there!")
ShowMessage("Hello", " there!")
End Sub
Sub ShowMessage(ByVal ParamArray Text() As String)
Dim i As Integer
For i = 0 To UBound(Text)
System.Console.Write(Text(i))
Next i
End Sub
End Module
Hello there!Hello there!"