Con una sola orden no lo sé, pero el código que te pongo debajo lo hace leyendo todo el archivo y copiandolo a otro, debes de tener en cuenta que si el archivo es muy grande debes de leer línea por línea.
Dim fs, a, b, c
Dim s As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("C:\a.txt", 1, False)
Set b = fs.OpenTextFile("C:\b.txt", 1, False)
Set c = fs.CreateTextFile("C:\c.txt", 8, False)
s = a.ReadAll
c.Write s & vbCrLf
s = b.ReadAll
c.Write s
a.Close
b.Close
c.Close
Espero que esta solución te valga.
