Easy If-Than code for comparison of multiple values doesn't return correct value

[quetzal]

Hi, I just couldn't solve this issue. My B5 cell contains the number 3007998 which is the input for the computation and my code doesn't return the correct value:

If CStr(Sheets("ORDERS").Range("B5").Value) = "3007659" Or "3007664" Or "3008085" Then
           SpeedRate = 462 
           MsgBox "Speedrate is 462pcs/h"
    Else
           SpeedRate = 625
           MsgBox "Speedrate is 625pcs/h"
    End If

...it returns the SpeedRate = 462 which is not correct and idk why..even if I remove the conversion to string by CStr.

[p45cal]

One of:

Sub blah()
If CStr(Sheets("ORDERS").Range("B5").Value) = "3007659" Or CStr(Sheets("ORDERS").Range("B5").Value) = "3007664" Or CStr(Sheets("ORDERS").Range("B5").Value) = "3008085" Then
    SpeedRate = 462
    MsgBox "Speedrate is 462pcs/h"
Else
    SpeedRate = 625
    MsgBox "Speedrate is 625pcs/h"
End If
End Sub

Sub blah2()
Select Case CStr(Sheets("ORDERS").Range("B5").Value)
Case "3007659", "3007664", "3008085"
    SpeedRate = 462
    MsgBox "Speedrate is 462pcs/h"
Case Else
    SpeedRate = 625
    MsgBox "Speedrate is 625pcs/h"
End Select
End Sub

However, if cell B5 already contains a number then one of:

Sub blah3()
If Sheets("ORDERS").Range("B5").Value = 3007659 Or Sheets("ORDERS").Range("B5").Value = 3007664 Or Sheets("ORDERS").Range("B5").Value = 3008085 Then
    SpeedRate = 462
    MsgBox "Speedrate is 462pcs/h"
Else
    SpeedRate = 625
    MsgBox "Speedrate is 625pcs/h"
End If
End Sub

Sub blah4()
Select Case Sheets("ORDERS").Range("B5").Value
Case 3007659, 3007664, 3008085
    SpeedRate = 462
    MsgBox "Speedrate is 462pcs/h"
Case Else
    SpeedRate = 625
    MsgBox "Speedrate is 625pcs/h"
End Select
End Sub

[quetzal]

One of:

Sub blah()
If CStr(Sheets("ORDERS").Range("B5").Value) = "3007659" Or CStr(Sheets("ORDERS").Range("B5").Value) = "3007664" Or CStr(Sheets("ORDERS").Range("B5").Value) = "3008085" Then
    SpeedRate = 462
    MsgBox "Speedrate is 462pcs/h"
Else
    SpeedRate = 625
    MsgBox "Speedrate is 625pcs/h"
End If
End Sub

Sub blah2()
Select Case CStr(Sheets("ORDERS").Range("B5").Value)
Case "3007659", "3007664", "3008085"
    SpeedRate = 462
    MsgBox "Speedrate is 462pcs/h"
Case Else
    SpeedRate = 625
    MsgBox "Speedrate is 625pcs/h"
End Select
End Sub

However, if cell B5 already contains a number then one of:

Sub blah3()
If Sheets("ORDERS").Range("B5").Value = 3007659 Or Sheets("ORDERS").Range("B5").Value = 3007664 Or Sheets("ORDERS").Range("B5").Value = 3008085 Then
    SpeedRate = 462
    MsgBox "Speedrate is 462pcs/h"
Else
    SpeedRate = 625
    MsgBox "Speedrate is 625pcs/h"
End If
End Sub

Sub blah4()
Select Case Sheets("ORDERS").Range("B5").Value
Case 3007659, 3007664, 3008085
    SpeedRate = 462
    MsgBox "Speedrate is 462pcs/h"
Case Else
    SpeedRate = 625
    MsgBox "Speedrate is 625pcs/h"
End Select
End Sub

thank you very much! the first one worked just fine