dim x() as string = split (textbox.text, vbcrlf)
for i as integer = 0 to ubound(x)
  ' datei umbennen altername in neuername -> x(i)
  ' das directory ist aus dem workshop, bitte da weiterlesen
  Directory.Move("E:\Test", "E:\Test_" & x(i))
next i