En cuanto recogas los valores de tu archivo de texto puedes usar la funcion split para usar como separador el ";"
ejemplo:
Cita: Dim sItems as String = "campo1;campo2;campo3..."
For Each s As String In sItems.Split(";")
ListBox1.Items.Add(s)
Next
Salu2
