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