cargar txt en listbox

[mau_87lp]

Gracias por la respuesta, despues de un rato salio asi

Código:

Dim cadena As String
        cadena = My.Computer.FileSystem.ReadAllText("C:\test.txt")
        Dim separador As Char = ","
        Dim nuevo() As String = Split(cadena, ",")
        For i As Integer = 0 To nuevo.Length - 1
            ListBox1.Items.Add(nuevo(i))
        Next