Dim row As String = ""
            Dim tr As TextReader
            tr = File.OpenText(FileName)

            Do
                ' leggo linea per linea
                row = tr.ReadLine

                If InStr(row, ";") Then ' nella riga c'è un punto e virgola, effettuo uno split e controllo i termini splittati uno ad uno

                    Dim spe() As String = Split(row, ";")

                    For u As Integer = 0 To spe.GetUpperBound(0)

                        If IsNumeric(spe(u)) Then
                            spe(u) = spe(u).Trim
                            lbxValues.Items.Add(spe(u))
                        End If

                    Next u

                Else ' nella riga corrente non c'è punto e virgola

                    If IsNumeric(row) Then
                        row = row.Trim
                        lbxValues.Items.Add(row)
                    End If

                End If

            Loop While (row <> Nothing)

            tr.Close()