xls_Appl = CreateObject("Excel.Application")
            wb = xls_Appl.Workbooks.Open(TextBox1.Text)
            ws = wb.Sheets("Sheet1")
            xls_Appl.Visible = False
            Excel_open = True
            rg = ws.Range("A1")
            Dim this_row As ExcelRows
 
            Do
                If rg.Text <> "" Then
                    this_row.test_1 = rg.Text
                    xls_Appl.Range(1, 0).Activate()
                    this_row.Test_2 = rg.Text
                    xls_Appl.Range(1, 0).Activate()
 
                    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)
                    TextBox4.Text = "-on " + this_row.test_1 + " -ot file -actn" & _
                      "ace -ace  """ + this_row.Test_2 + """"
                    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