新建From1（窗体），新建Combo1（按钮ComboBox），代码：

Private Sub Combo1_Click()
    MsgBox Combo1.Text
End Sub

Private Sub Form_Load()
    Dim i&
    With Combo1
        .Clear
        For i = 1 To 9
            .AddItem i
        Next
    End With
End Sub

点击后即可弹出选项。