File.CreateText("mynewfile.txt")
File.Copy("mynewfile.txt", "newfile2.txt")
File.Move("newfile2.txt", "newfile3.txt")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim fi As New FileInfo("mynewfile.txt")
fi.CreateText()
fi.CopyTo("newfile2.txt")
Dim fi2 As New FileInfo("newfile2.txt")
fi2.MoveTo("newfile3.txt")