How do I make a loop? specifically I want this to loop:

Public Sub Shoot()
If ShotEnabled = True Then
Shot.y = Shot.y - 2

If Shot.y = Enemy.y Then
If Shot.x = Enemy.x Then Enemy.w = Enemy.w + 1
End If
If Shot.x = Enemy.x Then
If Shot.y = Enemy.y Then Enemy.w = Enemy.w + 1
End If
End If
End Sub