[Resolvido]Ajuda Codigo de calculo

utilizo o seguinte calculo para saber que o veículo está para revisão

Código:

Private Sub Matricula_LostFocus()
Dim x, y, z As Integer
x = [OBS]
y = Me.CaixaCombinação137
w = 2500
z = y - x
If z <= w Then
MsgBox "Viatura para Revisão"
If z > w Then
Me.KEfectuados.SetFocus
End If
End If
End Sub

Se

Código:

If z <= w Then
MsgBox "Viatura para Revisão"

funciona na perfeição o problema é em

Código:

If z > w Then
Me.KEfectuados.SetFocus

ai dá-me erro

Runtime error'6: Overflow

Onde errei???

Olá, tenta mudar o tipo de dados das variáveis de Integer para Long.

Obrigado betogivoni resultou na perfeição.
Ficou assim:

Código:

Private Sub Matricula_LostFocus()
Dim x, y, z As Long
x = [OBS]
y = Me.CaixaCombinação137
w = 2500
z = y - x
If z <= w Then
MsgBox "Viatura para Revisão"
End If
If z > w Then
Me.KEfectuados.SetFocus
End If
End Sub

Ok, saudações do fórum pelo retorno