Bug in VB code

        Dim unite As New Unite
        unite = New Unite   ' consists of 6 integer variables, all = 0
        '
        unite = unitePass       ' here: unitePass values = 3,1,3,10,1,2

What you do with the code above (the old one) is create a new address to hold a type Unite
Then create a new address instance of unite into it (senseless in that code and like you did not in your current code). 

And then replace that by the address of the old unitePass .

Therefore all properties of unite and unitepass are the same they only have 2 address holders.

In your current code you avoid that strange senseless part.

Success
Cor