Do
                If rg.Text <> "" Then
                    rg = ws.Range("A" + rows)
                    this_row.test_1 = rg.Text
                    rg = ws.Range("B" + rows)
                    this_row.Test_2 = rg.Text
                    rows = rows + 1
 
                    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