Dim Path as String = "C.dat"
File.WriteAllBytes("Path", File.ReadAllBytes("A.dat"))
File.WriteAllBytes("Path", File.ReadAllBytes("B.dat"))
File.WriteAllBytes("Path", File.ReadAllBytes("A.dat"))
File.WriteAllBytes("Path", File.ReadAllBytes("B.dat"))