Как объявить переменную, имя которой находится в другой переменной - VB

Формулировка задачи:

В переменной X находится имя другой переменной D. Требуется объявить эту переменную как тип STRING. Присвоить что-нибудь и напечатать. Прилагаемый код решает данную задачу. Но вот ГЛАВНЫЙ ВОПРОС. А можно ли это сделать в любом случае, не зная что там в переменной икс?

                    Листинг программы
                
 
                        
                          
                    
DIM x AS STRING
x = "D"
 
SELECT CASE x
  CASE "A": DIM A AS STRING: A = "A"
  CASE "B": DIM B AS STRING: B = "B"
  CASE "C": DIM C AS STRING: C = "C"
  CASE "D": DIM D AS STRING: D = "ABCD"
END SELECT
PRINT D

Решение задачи: «Как объявить переменную, имя которой находится в другой переменной»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim mDic As Object
 
Public Property Get Dic() As Object
    If mDic Is Nothing Then Set mDic = CreateObject("scripting.dictionary")
    Set Dic = mDic
End Property
 
Private Sub Form_Activate()
    'присвоить можно так
    Dic("a") = 1
    Dic("b") = Dic("a") + 1
    Dic("c") = Dic("b") + 1
    Print "Переменные " & vbLf & _
    "a = " & Dic("a") & vbLf & _
    "b = " & Dic("b") & vbLf & _
    "c = " & Dic("c")
End Sub