用vb在excel的sheet上创建了一个combobox，怎么增加它的item？（内有代码，请指教）

在vb中，创建了excel程序。
    Private m_ExcelApp As Excel.Application
    Private m_ExcelBook As Excel.Workbook
    Private m_ExcelSheet As Excel.Worksheet
    Private m_ExcelCombobox As Excel.OLEObject    Set m_ExcelApp = CreateObject("excel.application") 
    Set m_ExcelBook = m_ExcelApp.Workbooks.Open()
    Set m_ExcelSheet = m_ExcelApp.Workbooks(1).Sheets(1)    Set m_ExcelCombobox = m_ExcelSheet.OLEObjects.Add(ClassType:="Forms.combobox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=0, Top:=0, Width:=1, Height:= _
        17.25)可是，怎么向我创建的combobox中添加item，请指教！