Как сделать так , чтобы переменная на русском языке не выводило ошибку - VBA

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

А как сделать так , чтобы при назначении переменной на русском языке (что необходимо для отображения в ComboBox) не выдавала ошибку? Или я что то не так сделал?

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
 
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim acadCircle As acadCircle 'Пикет 20 см в диаметре
Dim acadLayerPiket As AcadLayer
Dim acadLayerNum As AcadLayer
Dim acadText As acadText
Dim ValuesRange As Variant
Dim Piket_counter As Integer
Dim Flag As Boolean
Dim Белый As acWhite
Dim Красный As acRed
Dim Жолтый As acYellow
Dim Зеленый As acGreen
Dim Синий As acBlue
Dim Голубой As acCyan
Dim Фиолетовый As acPurple
 
Private Sub UserForm_Initialize()
 
ComboBox1.AddItem "Белый"
ComboBox1.AddItem "Красный"
ComboBox1.AddItem "Жолтый"
ComboBox1.AddItem "Зеленый"
ComboBox1.AddItem "Белый"
ComboBox1.AddItem "Синий"
ComboBox1.AddItem "Голубой"
ComboBox1.AddItem "Фиолетовый"
 
AutoCAD_Connection
 
End Sub

Решение задачи: «Как сделать так , чтобы переменная на русском языке не выводило ошибку»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim acadCircle As acadCircle 'Пикет 20 см в диаметре
Dim acadLayerPiket As AcadLayer
Dim acadLayerNum As AcadLayer
Dim acadText As acadText
Dim ValuesRange As Variant
Dim Piket_counter As Integer
Dim Flag As Boolean
Dim Белый As Long
Dim Красный As Long
Dim Жолтый As Long
Dim Зеленый As Long
Dim Синий As Long
Dim Голубой As Long
Dim Фиолетовый Long
 
Private Sub UserForm_Initialize()
Белый = acWhite
Красный = acRed
Жолтый = acYellow
Зеленый = acGreen
Синий = acBlue
Голубой = acCyan
Фиолетовый = acPurple
ComboBox1.AddItem "Белый"
ComboBox1.AddItem "Красный"
ComboBox1.AddItem "Жолтый"
ComboBox1.AddItem "Зеленый"
ComboBox1.AddItem "Белый"
ComboBox1.AddItem "Синий"
ComboBox1.AddItem "Голубой"
ComboBox1.AddItem "Фиолетовый"
AutoCAD_Connection
End Sub