Out of Memory Exception While loopin through batches

I am having a problem when trying to script the data out of an existing database. (Code Below)
I only need the data, I am sending it to a server that already has an empty database that I want to populate with this data.

I am encountering a “system.outofmemoryexception” exception.
It occurs when I am looping through the batches in the execution block.
The block has 758,981 blocks.

Any recommendations you could give me would be appreciated very much.

Thanks,

Mike
Code:
block = provider.GetMigrationSQL(session, True)

'cleanup some memory
provider = Nothing
sourceDB = Nothing
If Not session Is Nothing Then
session.Dispose()
End If


'Call the Garbage collector before we start to make sure we have all the memory possible
GC.Collect()

I get the “system.outofmemoryexception” in this for loop.
'Loop through the batches
For lngCurrentBatch = 0 To block.BatchCount - 1
strTemp = block.GetBatch(lngCurrentBatch).Contents
''Strip out the comment block
'intBeginComment = InStr(strTemp, "/*")
'intEndComment = InStr(strTemp, "*/")
'If intBeginComment > 0 Then
' strTemp = Mid(strTemp, intEndComment + 6, strTemp.Length)
'End If
'Strip out Set XACT_ABORT ON statement
strTemp = strTemp.Replace("SET XACT_ABORT ON" & vbCrLf, vbNullString)
'Strip out Set ARITHABORT ON statement
strTemp = strTemp.Replace("SET ARITHABORT ON" & vbCrLf, vbNullString)
'Strip out Begin and Commit Transaction
strTemp = strTemp.Replace("BEGIN TRANSACTION" & vbCrLf, vbNullString)
strTemp = strTemp.Replace("COMMIT TRANSACTION" & vbCrLf, vbNullString)
'Strip out binary declaration
strTemp = strTemp.Replace("DECLARE @ptrval binary(16)" & vbCrLf, vbNullString)


While InStr(strTemp, vbCrLf & vbCrLf) > 0
strTemp = strTemp.Replace(vbCrLf & vbCrLf, vbNullString)
End While

'strip out any single vbcrlf
If strTemp = vbCrLf Then
strTemp = strTemp.Replace(vbCrLf, vbNullString)
End If

If strTemp.Length = 4 And InStr(strTemp, "GO" & vbCrLf) > 0 Then
'Strip out Go Statement
strTemp = strTemp.Replace("GO" & vbCrLf, vbNullString)
End If

If strTemp.Length > 1 Then
sScript.Append(strTemp)
strLastString = strTemp
End If
Next

If lngCurrentBatch = block.BatchCount Then
If strTemp <> strLastString And strLastString <> vbNullString Then
sScript.Append(vbCrLf & "GO" & vbCrLf)
strLastString = vbNullString
End If
End If

'Assume the best
blnAllWritten = True

Dim msImage As System.IO.MemoryStream
While drURLs.Read
Dim arParms() As SqlParameter = New SqlParameter(5) {}
msImage = StringToStream(sScript.ToString)
'msImage = StringToStream(block.ToString)
msImage = CompressStream(msImage)
msImage = EncryptStream(msImage, "ENCRYPTION123456")
End While