Porque Não Consigo adicionar item em uma ListBox no USerForm

[ChagasP]

Crie um formulário e adicionei nele combobox e listbox para depois de imputar dados neles salvar em uma planilha, porem ao tentar adicionar os dados dos combobox na listbox não são adicionados. Poderiam me ajudar com este problema, pois já vi vários exemplos de listbox aqui, mas não consigo entender porque o meu não funciona?
Segue código que estou usando:

Sub AddButton

Dim oListBox As Object


Dim Mes As Object, Semana  As Object, Produto As Object, MP As Object, Qtd As Object, OP As Object, Lista As Object
Dim Meta As Object, Compri  As Object, Perim As Object, Aprov As Object, Real As Object, oDialogo As Object
	
    
    DialogLibraries.LoadLibrary("Standard")
   	oDialogo = CreateUnoDialog(DialogLibraries.Standard.getByName("FrmRegistro"))
   		
	oListBox=oDialogo.getControl("Listbox1")
	oListBox.Model.removeAllItems
	
		
	Mes = oDialogo.getControl("cbMes")
	Semana = oDialogo.getControl("cbSemana")	
	Produto = oDialogo.getControl("txtProduto")
	MP = oDialogo.getControl("cbMp")
	OP = oDialogo.getControl("txtOP")
	Qtd = oDialogo.getControl("txtQtd")
	Meta = oDialogo.getControl("txtMeta")
	Compri = oDialogo.getControl("txtComp")
	Perim = oDialogo.getControl("txtPerimentro")
	Aprov = oDialogo.getControl("txtAproveit")
	Real = oDialogo.getControl("txtRealizado")
	
	oListBox.additem(Meta.model.Text, 0) 


End Sub

[Conras]

A variávle Meta.model está errada.

Deixe apenas

oListBox.additem(Meta.Text, 0)

[ChagasP]

Infelizmente não resolveu. Executei a macro em modo pausado e observei que ao executar o código as variáveis não recebiam os valores do objeto. E como se a macro perdese a conexão com formulário

[ChagasP]

Ao revisar minuciosamente o código observei que uma variável esta declarada errada, apos a correção funcionou tudo perfeito.