Also wenn ich
For i As Integer = 1 To countra
My.Computer.FileSystem.WriteAllText(OpenFileDialog1.FileName, "FileGotDeletedByFileTail" & Now & Now & Now & Now & Now & Now & Now & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond & Now.Millisecond, False)
counter += 1
TextBox3.Text = counter
MsgBox(counter)
Next