We are able to use SELECT CASE alternately by blocks "IF ... THEN .. ENDIF" . Sub
married ()
sales
As Integer Dim total As Integer Dim
sales = 50 Select Case Sales' sales cases for
Case Is = 30 'if
30 Total = 30 * 12'
calculate
Case Is = 40 'if
40 Total = 40 * 13' calculate
Case Is = 50 'if 50 total
= 50 * 14 'calculate
Case Else' Otherwise
total = 60 * 25 'calculate
End Select MsgBox
total' Show Totals End Sub
