Imports System

Public Module Module1

    Public Class Foo

        Public text As String

    End Class

    Public Sub Main()

        Dim a, b, c As New Foo With {.text = "A"}

        Console.WriteLine(a.text)

        Console.WriteLine(b.text)

        Console.WriteLine(c.text)

    End Sub

End Module