Tenemos la posibilidad de emplear alternativamente la instrucciones SELECT CASE por los bloques "IF...THEN..ENDIF" .
Sub cases()
Dim ventas As Integer
Dim totales As Integer
ventas = 50
Select Case ventas 'casos para ventas
Case Is = 30 'si es 30
totales = 30 * 12 'calcular
Case Is = 40 'si es 40
totales = 40 * 13 'calcular
Case Is = 50 'si es 50
totales = 50 * 14 'calcular
Case Else 'caso contrario
totales = 60 * 25 'calcular
End Select
MsgBox totales 'mostrar totales
End Sub