u1 = 1
u2 = -1
m1 = 1
m2 = 1
'
v1 = ((m1 - m2) * u1 + 2 * m2 * u2) / (m1 + m2)
v2 = v1 + u1 - u2
'
MsgBox v1
MsgBox v2
End Sub