Boa tarde!

Para ajudarem a me ajudar (rsrs) anexei minha planilha.

Preciso que os dados sejam inseridos abaixo da última linha preenchida da ListBox e não acima com está fazendo na planilha.

Obrigado!

Boa Noite, Segue o Solicitado em anexo

att MarkoSoftware.

Boa noite markosoftware!

Obrigado por responder. Porém preciso que os valores das 3 TextBox sejam preenchidos nas 3 colunas da ListBox e que novos valores das 3 TextBox sejam preenchidos logo abaixo dos valores anteriores na ListBox, ou seja, preciso que as três colunas da ListBox sejam preenchidas com as 3 TextBox (TextBox1 -> Coluna 1, TextBox2 -> Coluna 2 e TextBox3 -> Coluna 3). A planilha que me enviou preenche apenas uma coluna. Será que você poderia me ajudar? Mais uma vez lhe agradeço. Obrigado!

Salve!!

Siga a mesma lógica do Reinaldo, só não havendo necessidade de acrescentar + 1 à variavel. Outras Alterações:
01 - No lugar de

, ListIndex

coloque

TextBox1.Text

02 - Exclua essa linha

ListBox1.List(i, 0) = TextBox1.Text

03 - Aonde houver

= Clear

, troque por

= ""
Private Sub CommandButton1_Click()

Dim i

If Me.ListBox1.ListCount = 0 Then
    i = 0
Else
    i = Me.ListBox1.ListCount
End If
Me.ListBox1.AddItem TextBox1.Text

'ListBox1.List(i, 0) = TextBox1.Text
ListBox1.List(i, 1) = TextBox2.Text
ListBox1.List(i, 2) = TextBox3.Text

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

Muito obrigado José! Era exatamente isso que eu precisava. Você me ajudou muito meu irmão. Eu tava quebrando minha cabeça já há algumas horas com essa questão e não estava conseguindo resolver. To começando agora rsrs. Mais uma vez muito obrigado! Até a próxima.