Imports System

Public Module Module1

    Public Sub Main()

        Dim x = New SomeClass()

        Console.WriteLine(x.Name1)

        Console.WriteLine(x.Name2)

    End Sub

End Module

​

Public Class SomeClass

    Public ReadOnly Property Name1 As String

    Public ReadOnly Property Name2 As String

    Public Sub New()

        PrivSub(Name1)

        Name2 = Name1 & " is now"

    End Sub

    Private Sub PrivSub(ByRef n As String)

        n = System.DateTime.UtcNow.ToLongDateString

    End Sub

End Class