Dim X As Long, Y As Long, Z As Long = 10
'old code: X = X + 1 'new code: X += 1
'old code: X = X / Y 'new code: X /= Y
'old code: Z = Z - ((X + 1) * Y) 'new code: Z -= ((X + 1) * Y)