Module MainModule Private Type TestType TypeMember As Integer TypeMember2 As Integer End Type Public Sub Test(MyType As TestType) MyType.TypeMember = &H7fffffff& ' Overflows in tB, but works in VB6 ...