Do
                If (xls_Appl.ActiveCell.Text) = Nothing Then
 
                    Exit Do
                Else
                    this_row.test_1 = xls_Appl.ActiveCell.Text
                    xls_Appl.ActiveCell.Offset(1, 0).Activate()
 
                    this_row.Test_2 = xls_Appl.ActiveCell.Text
                    this_row.test_1 = Replace(this_row.test_1, vbNewLine, " ")
                    this_row.Test_2 = Replace(this_row.Test_2, vbNewLine, " ")
                    Hour = My.Computer.Clock.LocalTime.Hour
                    Minute = My.Computer.Clock.LocalTime.Minute
                    Second = My.Computer.Clock.LocalTime.Second
                    Stundenzeit = Hour & ":" & Minute & ":" & Second
                    'Dim Log As String = (Stundenzeit & " -on " + 
                    ' this_row.test_1 + " -ot file -actn ace -ace " + 
                    ' this_row.Test_2)
                    MessageBox.Show(log)
                    Dim p As New Process
                    p.StartInfo.UseShellExecute = False
                    p.StartInfo.RedirectStandardOutput = True
                    p.StartInfo.FileName = "SetACL"
                    p.StartInfo.Arguments = "-on " + this_row.test_1 + " -ot" & _
                      "file -actn ace -ace " + this_row.Test_2
                    p.Start()
                    Dim s As String = p.StandardOutput.ReadToEnd
                    TextBox3.Text = s
                    p.WaitForExit()
                    If File.Exists(TextBox2.Text & "Test.txt") = False Then
                        My.Computer.FileSystem.WriteAllText(TextBox2.Text & _
                          "Test.txt", log, True)
                    Else
                        objDateiMacher = New StreamWriter(TextBox2.Text & "" & _
                          "Test.txt")
                        objDateiMacher.Write(log)
                        objDateiMacher.Close()
                        objDateiMacher = Nothing
                    End If
 
                End If
            Loop