Hur lägger jag lättast ihop två filer?

Ett enkelt exempel:
Dim oFso As New Scripting.FileSystemObject
Dim oStream As Scripting.TextStream
Dim oNyFil As Scripting.TextStream
Dim strFil1 As String
Dim strFil2 As String
Dim strNyFil As String

strFil1 = "c:/Fil1.txt"
strFil2 = "c:/Fil2.txt"
strNyFil = "c:/NyFil.txt"

'Öppnar första filen och målfilen
Set oStream = oFso.OpenTextFile(strFil1, ForReading)
Set oStream2 = oFso.OpenTextFile(strNyFil, ForWriting, True)

'Skriver till målfilen
Do Until oStream.AtEndOfStream
oNyFil.WriteLine oStream.ReadLine
Loop
'stänger första filen
oStream.Close
'Öppnar den andra filen och skriver till målfilen
Set oStream = oFso.OpenTextFile(strFil2, ForReading)
Do Until oStream.AtEndOfStream
oNyFil.WriteLine oStream.ReadLine
Loop

oStream.Close
oNyFil.Close
Set oFso = Nothing

Oops, ett litet fel oStream2 ska vara oNyFil