Write Columns To Text

I have a macro that reads the content of the columns in an excel file and writes the content of each cell in the column to a row in a text file. Here is the code I am using:

Public fso As New FileSystemObject
Dim f As Folder
Dim i As Long
Dim j As Long
Dim rng As Range
Dim cell As Range

' Generate a set of text files from this excel file

Sub ExcelToText()
'Select the used range of the worksheet
Set rng = ActiveSheet.UsedRange
Set rng = rng.Offset(3, 0)
For i = 1 To rng.Columns.Count
CreateTextFile rng.Columns(i), i
Next i
End Sub

' create text file
Private Sub CreateTextFile(rng As Range, i As Long)

Dim tstream As TextStream
Dim oCell As Range
Dim j As Integer
Dim title As String
Dim filname$


Now my problem is the following: certain rows are merged in the first column of my excel file, such as the following:

050partyId partyIdScheme
member memberScheme

In this case, my macro writes 50 in the first text file, then partyIdmember in the second file and partyIdSchemememberScheme in the third file.

What I want is a white space between the words in my text file, for example: partyId partyIdScheme. How do I modify my macro to do that?