Dim name1 = ze(zl - 13).Substring(0, 5)
            Dim name2 = ze(zl - 9).Substring(0, 5)
            Dim name3 = ze(zl - 5).Substring(0, 5)
            Dim Datum = ze(zl - 17).Substring(49, 8)
            Dim P1 = ze(zl - 11).Substring(15, 4)
            Dim P2 = ze(zl - 7).Substring(15, 4)
            Dim P3 = ze(zl - 3).Substring(15, 4)

' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3)
' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4)
' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "guten tag das ist ein mustertext zum ueben mit strings"
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim name As String = TextBox1.Text
        TextBox2.Text = name.Substring(6, 17) 'ab zeichen 5 -17 = (tag das 
        ' ist)wird ausgegeben
    End Sub
End Class

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht