Chaine

Bonjour je cherche a couper une chaine pour avoir qu'une partie, je début sur VB ! voila déjà mon code :
Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim textline As String
FileOpen(1, "c:\Sizer.tag", OpenMode.Input)
While Not EOF(1)
textLine = LineInput(1)
If Microsoft.VisualBasic.Left(textline, 3) = "101" Then
TextBox1.Text = textline
Exit While
End If
End While
Dim textline2 As String = "101,587,PGT5223,30/05/2016,16:40,30"

textline = Microsoft.VisualBasic.Mid(textline, 3, 6)

FileClose(1)
End Sub
End Class

je cherche a isole la partie "PGT523", je pense utiliser un mid