Module YourClassTest
Sub Main()
Dim obj As New YourClass
obj.DisplayMessage("AAA")
End Sub ' Main
End Module
Public Class YourClass
Public Sub DisplayMessage(ByVal courseName As String)
Console.WriteLine( _
"Welcome to " & vbCrLf & courseName & "!")
End Sub
End Class
Welcome to
AAA!