Class Module VB.Net Tutorial

Public Class Tester
    Public Shared Sub Main
        Dim Alerter As New MyMessageBox
        
        Alerter.Alert("No Problems!")
        Alerter.Alert("No Problems!", MsgBoxStyle.Exclamation)
    End Sub
End Class
Public Class MyMessageBox
    Public Sub Alert(ByVal Text As String)
        MsgBox(Text)
    End Sub
    Public Sub Alert(ByVal Text As String, ByVal Icon As MsgBoxStyle)
        MsgBox(Text, Icon)
    End Sub
End Class