[alykins]

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