[Resolvido]Nova Ajuda Codigo de calculo

Private Sub OBS_LostFocus()
Dim x, y, z As Long
x = [OBS]
y = Me.Texto137
w = Me.Texto140
z = y - x
If z <= w Then
MsgBox "Atenção Viatura proxima de Km de Revisão"
Else
If y > x Then
Me.Texto26.SetFocus
End If
End If
End Sub


A primeira parte funciona

Dim x, y, z As Long
x = [OBS]
y = Me.Texto137
w = Me.Texto140
z = y - x
If z <= w Then
MsgBox "Atenção Viatura proxima de Km de Revisão"

X= Km abastecimento (ex. 7000)
Y= Km proxima revisão (ex. 10000)
W= Km para aviso (ex. 2000) avisar 2000 antes dos 10000
Z = Subetração de y-x

A segunda ja não funciona pois passados os tais Km da revisão continua a avisar

Else
If y > x Then
Me.Texto26.SetFocus
End If
End If

Onde errei???

Ok já resolvi, lembrei que quando chega aos Kms pretendidos tenho que alterar para os proximos por isso já não aparece o aviso po isso dou o resolvido.

Fiz só uma adaptação

Código:

Private Sub OBS_LostFocus()
Dim x, y, z As Long
x = [OBS]
y = Me.Texto137
w = Me.Texto140
z = y - x
If z <= w Then
MsgBox "Atenção Viatura " & [Matricula] & " faltam " & [Texto141] & "Kms para a proxima Revisão"
Else
If z > w Then
Me.Texto26.SetFocus
End If
End If
End Sub