End Select

В операторе Case можно использовать строковое или числовое выражение. В списке значений допускается указать: явное значение; диапазон значений, задаваемый с помощью ключевого слова To; условный диапазон, задаваемый с помощью ключевого слова Is.

Пример 1:   Private Sub Command_Click()

                        Speed = S/t   'число от 0 до 50