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)