Code:
Module Module1
Sub Main()
Dim d As New demo
d.doSomethingElse()
End Sub
End Module
Public Class demo
Sub New()
doSomething()
End Sub
Private Sub doSomething()
Console.WriteLine()
End Sub
Public Sub doSomethingElse()
Console.ReadLine()
End Sub
End Class