Proszę o pomoc w wykryciu błędu w poniższym kodzie, tak aby program segregował również według kryterium wartości progowej, bo na razie segreguje wyłącznie według daty. Dane wczytywane z pliku mają postać: 01-01-01*0.9640
Private Sub cmdWyswietlPomiary_Click()
Dim i As Integer
Dim Data As String
Dim pomiar As String
For i = 0 To lstPomiary.ListCount - 1
Data = Mid(lstPomiary.List(i), 1, 8)
If Data = txt2.Text And Data = txt1.Text Then lst1.AddItem lstPomiary.List(i)
Next i
lblLiczba.Caption = Str(lst1.ListCount)
For i = 0 To lst1.ListCount - 1
pomiar = Mid(lst1.List(i), 10, 6)
If pomiar txtX.Text Then lst1.AddItem lst1.List(i)
Next i
End Sub