If X <= 2500 Then
Portd.5 = 1
Waitms 1
Portd.5 = 0
endif
If X > 2500 AND X <= 10000 Then
Portd.5 = 1
Waitms 2
Portd.5 = 0
Endif
if X > 10000 AND X <= 15000 Then
Portd.5 = 1
Waitms 3
Portd.5 = 0
End If

So würd ich es mal probieren, achte beim AND auf die Großschreibung! Bascom ist da nachtragend.