Boa noite,
Segue um exemplo de como fica carregar os dados na listbox emulando colunas:

.
ListBoxColunas.ods
.
Dim oDialogo As Object
Sub abrir
DialogLibraries.LoadLibrary("Standard")
'Usando a variável declarada no começo do módulo'
oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialog1") )
'Carregar'
oDialogo.Execute()
oDialogo.Dispose()
End Sub
Sub CarregarDados
oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName("Planilha1")
oListBox = oDialogo.getControl("ListBox1")
oListBox.Model.removeAllItems
For i = 1 to UltimaLinha(oPlan)
sCol1 = oPlan.getCellByPosition(0,i).String
sCol2 = oPlan.getCellByPosition(1,i).String
sCol3 = oPlan.getCellByPosition(2,i).String
oListBox.AddItem( EspacarColuna(sCol1,30) &_
EspacarColuna(sCol2,10) &_
EspacarColuna(sCol3,20), i )
Next i
End Sub
Function EspacarColuna( sCol, nTam )
EspacarColuna = Left(sCol & String(nTam," "),nTam) & " "
End Function
Function UltimaLinha( oPlan )
oCursor = oPlan.createCursor
oCursor.gotoEndOfUsedArea(True)
UltimaLinha = oCursor.Rows.Count-1
End Function
Atte,
@joaorochaj, não entendi exatamente o que você quer. Pretende jogar as 3 colunas (nome, idade e cidade) no listbox? Onde quer adicionar o novo registro? No listbox ou na planilha?
@Grafeno eu pretendo jogar as 3 colunas no listbox,eu quero adicionar na planilha. Por exemplo,se a a COLUNA A,B,C tem DADOS ate a linha 11 ,ai na list box mostra ate a linha 11 das coluna A,B,C
Na verdade, o listbox não suporta colunas. No máximo é possível emular colunas com uma fonte monoespaçada e uma função que coloque espaços entre os dados. Vou trabalhar um exemplo e postar...