How to check lines of multiline textbox, and if the time is the same as the running timer, it will be displayed in a label and go to next line in vb .net?

[VahidEra]

I have a multi-line text box with a time specified at the beginning of each line like this:

[00:31:196]I lie half awake, late at night
[00:40:840]I reach out to touch you
[00:44:114]Feel you by my side
[00:48:856]And I reach, and I reach,
[00:54:147]But I never get to feel you
[00:59:90]Will I ever get to feel you again, again
[01:12:269]Just one more time
[01:15:513]One more moment
[01:18:859]To take you in my arms
[01:23:68]One more chance
[01:25:281]One more kiss
[01:27:860]Before I wake to find you gone
[01:32:836]One more time
[01:35:348]Before I have to face another bad day,
[01:41:505]And my heart breaks again
[01:44:52]It's only a dream

and I also have a timer that is running like this:

00:31:196

I want line one to be checked first, and if the time is the same as the running timer, it will be displayed in a label.
Line one:

[00:31:196]I lie half awake, late at night

Timer:

00:31:196

Out put to label:

I lie half awake, late at night

And then go to the next line and check it and if the time is the same as the running time it will be displayed in a label. And so on until the end. Of course, I must also say that the number of lines may be different, maybe 2 lines or maybe 20 lines.

I tried this code but this code is very ridiculous:

Function Between(value As String, a As String,
                     b As String) As String
        ' Get positions for both string arguments.
        Dim posA As Integer = value.IndexOf(a)
        Dim posB As Integer = value.LastIndexOf(b)
        If posA = -1 Then
            Return ""
        End If
        If posB = -1 Then
            Return ""
        End If

        Dim adjustedPosA As Integer = posA + a.Length
        If adjustedPosA >= posB Then
            Return ""
        End If

        ' Get the substring between the two positions.
        Return value.Substring(adjustedPosA, posB - adjustedPosA)
    End Function

Private Sub CheckTimer_Tick(ByVal sender As Object, ByVal e As EventArgs)
    lblTrackBarValue.Text = timerTime
        For Each a As String In TextBox1.Lines
            Dim f As String = Between(a, "[", "]")
            If f = lblTrackBarValue.Text Then
                a = After(a, "]")
                Label1.Text = a
            End If
        Next
End Sub

I have no idea how to do this and if you can share the code for me here please.
Thank you very much.

[Joe4evr]

These discussions are meant to talk about the internals of the .NET runtime, not to aid you with personal projects.

You can come to the community discord for that: https://discord.gg/csharp

[VahidEra]

@Joe4evr OK Thank you for your guidance dear friend.