Uhm...
Sei sicuro che quello sia il punto?
lbl_testoPbaar potrebbe dare problemi, se hai offuscato il codice; i caratteri di sottolineatura hanno un significato particolare, in questo caso.
Un paio di cose che ho notato (non c'entrano niente, ma già che ci sono...
).
tw è un TextReader, quindi io lo chiamerei tr, anzi, TxtReader.
Invece di tutti quei Pos e IndexOf potresti usare:
Dim Blocchi() As String = Regex.Split(";", Line)
GlobTimeTrack avrà sempre il valore dell'ultimo dummy.SubString2, quindi i due precedenti sono ininfluenti.
Se GlobTimeTrack si trova sempre dopo l'ultimo punto e virgola, puoi usare direttamente:
GlobTimeTrack = Line.SubString(Line.LastIndexOf(";") + 1)
(anche senza Regex, ovviamente).
For i = 0 To lst0.Size - 1
Dim MyFile As String
MyFile = lst0.Get(i)
If MyFile.Contains(".dat") Then
tw.Initialize(File.OpenInput(Global.GPSDir & "/MieTracce/", lst0.Get(i)))
Line = tw.ReadLine
lblTestoPbaar.Text = "Calcolo statistiche in corso per la traccia " & Line.SubString(Line.LastIndexOf(";"))
End If
Next
Oppure con la variabile GlobTimeTrack; meglio, per un eventuale debug e per la leggibilità.
For i = 0 To lst0.Size - 1
Dim MyFile As String
MyFile = lst0.Get(i)
If MyFile.Contains(".dat") Then
tw.Initialize(File.OpenInput(Global.GPSDir & "/MieTracce/", lst0.Get(i)))
Line = tw.ReadLine
GlobTimeTrack = Line.SubString(Line.LastIndexOf(";"))
lblTestoPbaar.Text = "Calcolo statistiche in corso per la traccia " & GlobTimeTrack
End If
Next