kd = Replace(kd, vbCrLf, String.Empty)

        If i + 2 >= lines.Length Then
            MsgBox("Error!")
            Exit For
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist