VB 6 Zeilen one fso löschen

        Dim ADRPFA As String = "C:\ADRESS.txt"  
        Dim ZEIZAH = 1
        Do
            Try
                Dim ZEILEN As String() = My.Computer.FileSystem.ReadAllText(ADRPFA, System.Text.Encoding.Default).Split(vbCrLf)
                If ZEIZAH > 0 AndAlso ZEIZAH <= ZEILEN.Length Then
                    Dim STEWRI As IO.StreamWriter = Nothing
                    Try
                        STEWRI = New IO.StreamWriter(ADRPFA, False, System.Text.Encoding.Default)
                        Dim ZEILIS As Boolean = False
                        For Z As Integer = 0 To ZEILEN.Length - 1
                            If Z + 1 <> ZEIZAH Then
                                If ZEILIS Then STEWRI.Write(vbCr)
                                STEWRI.Write(ZEILEN(Z))
                                ZEILIS = True
                            End If
                        Next
                    Catch ex As Exception
                    Finally
                        If Not IsNothing(STEWRI) Then STEWRI.Close()
                    End Try
                End If
            Catch ex As Exception
            End Try
            ZEIZAH = ZEIZAH + 1
        Loop While ZEIZAH < 6