AJUDA TRATAMENTO DE ERRO

NETBRFAKES 07/01/2014 15:41:36
#432744

Quando chega na ultima linha ele da um ero
esse programa adiciona da listbox 1 para a lixtbox 2

An unhandled exception of type [ô]System.ArgumentOutOfRangeException[ô] occurred in System.Windows.Forms.dll

Additional information: InvalidArgument=Value [ô]0[ô] não é um valor válido para [ô]index[ô].



Alguem sabe o que ta erado abaixo?

Public Function repartir()
Dim recebe As String = ListBox1.Items(0)
Dim separador() As Char
Dim delimitador As String = [Ô];[Ô]
Dim manifesto As Integer = 1
separador = New Char() + delimitador.ToCharArray
Dim falar As String() = recebe.Split(delimitador)
Dim fala As String
For Each fala In falar
If manifesto = 1 Then
[ô]escreva nome
nome = fala
ElseIf manifesto = 2 Then
[ô]escreve sobrenome
nome2 = fala

End If

manifesto = manifesto + 1

Next


Label1.Text = ListBox1.Items.Count.ToString()
Label2.Text = ListBox2.Items.Count.ToString()

End Function