Dim arrPara(7) As String
        arrPara(0) = ZeileSchritt
        arrPara(1) = ZeileFunktionsnummer
 
        Dim y As Int32
        For y = 1 To iPara
            'Parameter  schreiben
            With iParameter
                'Wenn keine Parameterbeschreibung eingetragen ist abbrechen
                If Not .lblPara1.Text = "" Then
                    'Schreib-Routine wenn kein Parameter eingetragen ist
                    If .txbPara1.Text = "" Then
                        arrPara(2) = "    Parameter" & CType((y), String) & ":" _
                          & .lblParaDT1.Text & .txbPara1.Text & ";" & _
                          .lblPara1.Text
                        Console.WriteLine(arrPara(2))
                    Else
                        'Schreib-Routine wenn ein Parameter eingetragen ist
                        arrPara(2) = "    Parameter1:" & .lblParaDT1.Text & "" & _
                          ":=" & .txbPara1.Text & ";" & .lblPara1.Text
                        Console.WriteLine(arrPara(2))
                    End If
                End If
            End With
        Next