List Box help

[Lunatic3]

Dim i As Integer, s As String
        For i = 0 To Listbox1.Items.Count - 1
            s = ListBox1.Items.Item(i).ToString
            Listbox1.Items.Item(i) = (i + 1).ToString & "." & s.Remove(0, Len(s.Split(" ")(0))) & " " & s.Split(" ")(0)
        Next