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)