scusa per il ritardo, ma avevo da fare, per il file devi fare cosi':

Private Sub Form_Load()
Dim itmx As ListItem
Dim iFile As Integer
Dim sBuffer As String
Dim stringarray() As String
iFile = FreeFile
Open App.Path & "\prova.txt" For Input As #iFile
Do Until EOF(iFile)
Line Input #iFile, sBuffer
stringarray = Split(sBuffer, ",")
Set itmx = listview1.ListItems.Add(, , stringarray(0))
itmx.SubItems(1) = stringarray(1)
itmx.SubItems(2) = stringarray(2)
itmx.SubItems(3) = stringarray(3)
itmx.SubItems(4) = stringarray(4)
itmx.SubItems(5) = stringarray(5)
Loop
Close #iFile

End Sub

al posto di App.Path devi mettere il percorso della cartella che contiene il tuo file.
Attenzione: la penultima riga del tuo file (quella 22,444.36,3.44,.1105647,1), contiene 5 elementi e quindi in esecuzione ti dara' errore.

l'ultima domanda, cioe' quella relativa al beforelabeledit, non l'ho capita. Mi spieghi meglio cosa vuoi intendere?