Class A public Sub New(a as string) Me.New("aaa") End Sub public Sub New () Me.New() End Sub End Class Module M Sub Main() End Sub End Module