VBAユーザーフォームとコンボボックス

Private Sub UserForm_Initialize()
    Application.ScreenUpdating = False
    Dim MyDic As Object
    Set MyDic = CreateObject("scripting.dictionary") 'ディクショナリで社員コードの重複チェック
    Dim max As Long
    Dim i As Long
    Dim 社員コード As String
    Dim 社員コードvar As Variant
    ThisWorkbook.Sheets("社員データ").Activate
    If ThisWorkbook.Sheets("社員データ").AutoFilterMode = True Then ThisWorkbook.Sheets("社員データ").Range("A1").AutoFilter
    max = ThisWorkbook.Sheets("社員データ").Cells(Sheets("社員データ").Rows.Count, "B").End(xlUp).Row '最終行取得「社員名列」を使用（社員コードの空白セル対応）
    ThisWorkbook.Sheets("社員データ").Range(Cells(1, "A"), Cells(max, "F")).Sort key1:=Sheets("社員データ").Range("A1"), order1:=xlAscending, Header:=xlYes '社員コードで昇順ソート
    '社員コードの重複削除
    For i = 2 To max
        社員コード = ThisWorkbook.Sheets("社員データ").Cells(i, 1).Value
        If 社員コード <> "" Then '社員コードが空欄でなければ
            If Not MyDic.exists(社員コード) Then '重複チェック（条件分岐：重複がなければ）
                MyDic.Add 社員コード, 社員コード 'ディクショナリに追加
            Else
                MsgBox "社員コードに重複があります。" & vbCrLf & "起動を終了します。" & vbCrLf & "社員コード" & 社員コード '重複メッセージ
                ThisWorkbook.Sheets("社員データ").Select
                Call 閉じるbtn_Click
                End
            End If
        Else
            MsgBox "社員コードが空欄のレコードがあります。" '社員コードが空白のメッセージ
            ThisWorkbook.Sheets("社員データ").Select
            Call 閉じるbtn_Click
            End
        End If
    Next i
          
        社員コードvar = MyDic.items 'Ａ列:社員コードリストを一旦バリアント変数に格納（ディクショナリが機能しないため）
        cb開始.List = 社員コードvar 'コンボボックス配列として値を追加
        cb終了.List = 社員コードvar
        cb開始.Text = 社員コードvar(0)
        cb終了.Text = 社員コードvar(0)
    Set MyDic = Nothing
    Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Initialize()
　 cbごはん.AddItem "カレー"
    cbごはん.AddItem "ラーメン"
    cbごはん.AddItem "焼肉"
    cbごはん.AddItem "スパゲッティ"
End Sub

Private Sub UserForm_Initialize()
    Dim 食べ物リスト（3） 
    食べ物リスト（0）= "カレー"
　　食べ物リスト（1）= "ラーメン"
　　食べ物リスト（2）= "焼肉"
　　食べ物リスト（3）= "スパゲッティ"
    cbごはん.List = 食べ物リスト
End Sub

Private Sub UserForm_Initialize()
    Dim 食べ物リスト As Variant
    食べ物リスト = Sheets("食べ物").Range(Cells(2, 1), Cells(5, 1))
    cbごはん.List = 食べ物リスト
End Sub

Private Sub UserForm_Initialize()
    cbごはん.RowSource = Sheets("食べ物").Range(Cells(2, 1), Cells(5, 1)).Address(external:=True)
End Sub

Private Sub UserForm_Initialize()
    cbごはん.ListIndex = 1
End Sub

Private Sub UserForm_Initialize()
    Dim 食べ物リスト(3)
    食べ物リスト(0) = "カレー"
    食べ物リスト(1) = "ラーメン"
    食べ物リスト(2) = "焼肉"
    食べ物リスト(3) = "スパゲッティ"
    cbごはん.Text = 食べ物リスト(0) '初期値設定
End Sub