Select Case?

[Hugo121]

slan, я не понял про целое - ведь и с дробными числами работает:

Option Explicit

'"if a>1000 and a<=3000 then b=40"

Sub tt()
    Dim a, b
    a = 1000.00001
    Select Case a
    Case Is <= 1000: MsgBox "Меньше"
    Case Is <= 3000: b = 40: MsgBox b
    Case Else: MsgBox "Больше"
    End Select
End Sub

или так:

Sub ttt()
    Dim a, b
    a = 1000.00001
    Select Case a
    Case 1000 To 3000: b = 40: MsgBox b
    Case Else: MsgBox "Else"
    End Select
End Sub