Public Function GetLine(ByVal Textbox As TextBox, ByVal Line As Long)
        Dim Zeilen As Long = 0              'Anzahl der Zeilen in der Textbox.
        Dim Message As String = ""          'Text der Textbox.
        Dim Zeile() As String               'String Array in dem die einzelnen 
        ' Zeilen abgespeichert werden.
        Dim Zeichen As Char = ""            'Das aktuelle Zeichen.
        Dim Länge As Long = 0               'Die Anzahl der Zeichen in der 
        ' Textbox.
        Dim aktzeile As Long = 0            'Nummer der Aktuellen Zeile.
        Dim aktzeiletext As String = ""     'Text der Aktuellen Zeile.
 
        If TextBox.Text = "" Then
            Return Nothing
        End If
 
        Zeilen = TextBox.Lines.Length       'Anzahl der Zeilen der Textbox 
        ' zuweisen.
        Message = TextBox.Text              'Text zuweisen.
        Länge = Message.Length              'Anzahl der Zeichen zuweisen.
 
        ReDim Zeile(Zeilen)                 'String Array auf Anzahl der Zeilen 
        ' der Textbox einstellen.
 
 
        For i = 0 To Länge - 1                             'For Schleife die 
        ' die Zeilen zuweist.
            Zeichen = Message.Chars(i)              'Aktuelles Zeichen einlesen.
            If Zeichen = vbCrLf Then                    'Wenn ein Zeilenumbruch 
            ' erkannt wird Zeile Abschließen und mit der nächsten weitermachen.
                Zeile(aktzeile) = aktzeiletext
                aktzeile = aktzeile + 1
                aktzeiletext = ""
            Else                                        'Aktuelles Zeichen der 
            ' Aktuellen Zeile hinzufügen.
                aktzeiletext = aktzeiletext & Zeichen
            End If
        Next
 
        Return Zeile(Line).ToString                 'Gewünschte Zeile 
        ' zurückgeben.
 
    End Function

Private Sub btnsenden_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnsenden.Click
 
        TextBox1.Text = GetLine(tbxmessage, 0)
 
    End Sub

For i = 0 To Länge                            'For Schleife die die Zeilen 
' zuweist.
            Zeichen = Message.Chars(i)              'Aktuelles Zeichen einlesen.
            If Zeichen = vbCrLf Then                    'Wenn ein Zeilenumbruch 
            ' erkannt wird Zeile Abschließen und mit der nächsten weitermachen.
                Zeile(aktzeile) = aktzeiletext
                aktzeile = aktzeile + 1
                aktzeiletext = ""
            Else                                        'Aktuelles Zeichen der 
            ' Aktuellen Zeile hinzufügen.
                aktzeiletext = aktzeiletext & Zeichen
            End If
        Next