Вот чес. слово...
Ну вот не надоело даже не писать а читать такие скрипты
типа:

Sub doWork(Data,Index)
Select Case Index
Case "Sub1"
...
Case "Sub2"
...
Case "Sub3"
...
End Select
End Sub

При всём уважении к tsdima но всё же я переделал и отвязался от индексов
Вызов как в IC:

Sub doSub1(Data,Index)
...
End Sub

Sub doSub2(Data,Index)
...
End Sub

Sub doSub3(Data,Index)
...
End Sub

индекс оставил пока только для совместимости.

Вопрос то простой:
Вот уверен что и сейчас все отмолчатся...