有没有一种方法可以用vba在用户表单的组合框中切换所有值？

Sub SwitchComboBoxValues()
    Dim i As Integer
    Dim temp As String
    
    ' 清空组合框中的所有值
    ComboBox1.Clear
    
    ' 添加新的值到组合框中
    For i = 1 To 10
        temp = "Value " & i
        ComboBox1.AddItem temp
    Next i
    
    ' 设置组合框的默认选项为第一个值
    ComboBox1.ListIndex = 0
End Sub