Aparentemente e pela definição da variavel "i" ser sempre Zero (i=0). Tente assim :

(substiua a definição i=0; pela abaixo

If Me.listibox1.ListCount = 0 Then
    i = 0
Else
    i = Me.ListBox1.ListCount + 1
End If

Obrigado por responder Reinaldo, aliás você tem o mesmo nome do meu pai. rsrs Lega!

Com a sua orientação meu código ficou assim:

Private Sub CommandButton1_Click()

Dim i

If Me.ListBox1.ListCount = 0 Then
i = 0
Else
i = Me.ListBox1.ListCount + 1
End If

Me.ListBox1.AddItem , ListIndex

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

TextBox1 = Clear
TextBox2 = Clear
TextBox3 = Clear

End Sub

Infelizmente deu o seguinte erro:

------------------------------------------------------------
Erro de execução '381'

Não foi possível definir a propriedade List. Índice de matriz de propriedade inválido.
------------------------------------------------------------

O que acha que pode ter ocorrido?

Somente agora e que vi, sua duvida está no Forum errado, esté é somente para apresentação de novos integrantes.Sua duvida, para manter a organização do grupo, deve ser postada no Forum VBA.
Qto ao erro, abra o topico no VBA eposte junto seu exemplo(seu arquivo ou parte dele com dados ficticios se forem sigilosos COMPACTado), para que possamos analisar melhor, Assim a resposta considerará as caracteristicas de seu form/arquivo

Ok, meu amigo.

Novamente obrigado pela orientação.

Vou postar a questão no fórum apropriado.

Até mais!

Opss... Mensagem cruzada: http://www.planilhando.com.br/forum/viewtopic.php?p=25443#p25443