запуск SUB из списка LISTBOX . помогите .

[Serg28]

"начинающий"
делаю программу но возникал потребность в запуске "SUB name()" где name берется из списка LISTBOX
код но с ошибкой :

Код: Выделить всё

Private Sub Tank1_Click()
  Dim R As Object 
  If Tk1.Text = "Название" Then
    Exit Sub
  End If
  If Tk1.Text = "Выберите страну и ТИП" Then
    Exit Sub
  End If
  If Tk1.Text = "" Then
    Exit Sub
  Else
    R = Tk1.Text
  End If
End Sub

код приводит к ошибке
поиск такого примера ненашел ..

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

объявление R

Dim R As Object

и есть такая штука

R = Tk1.Text

R ведь должен быть объектом, а присваевается текст

Проверить не могу, но по идее ошибка тут.