'Now' is a bit too late for the next update but making suggestions is always good...
Type TTT (X As Map, Ser As B4RSerializator)
Public Sub CreateTTT (X As Map, Ser As B4RSerializator) As TTT
Dim t1 As TTT
t1.Initialize
t1.X = X
t1.Ser = Ser
Return t1
End Sub