新建From1（窗体），新建Combo1（ComboBox，设置Combo1.Style = 0），代码：

Private Sub Form_Load()
    Dim i As Integer
    
    For i = 1 To 9
        Combo1.AddItem i
    Next
    
    '要修改Text，只能手工设置 Combo1.Style = 0
    Combo1.Text = "a"
End Sub

就可以修改Text了。