Dim sArray As String()
    Dim i As Integer
 
    sArray = System.IO.File.ReadAllLines("D:\temp\test.txt")
 
    If sArray.Length > 21 Then
       For i = 19 To 21
          If sArray(i).Length > 15 Then
             textbox1.AppendText(sArray(i).Substring(9, sArray(i).Length - 15) _
               & vbCrLf)
          End If
       Next i
   End If