regarding program in vb.net

Sub Main()

' Call the constructor

Dim obj As New A(10)

Console.ReadKey()

End Sub

Class A

Sub New(ByVal input As Integer)

Console.WriteLine("The Input is " & input)

End Sub

End Class