Pulled the part about this from help
With 'FreeFile 'FF 'MyFile
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
Trying to get code to accept I am doing something wrong not sure what.
Object her is to put two commas into seperator as word odesnot want to accept
only one as text file now has. Following is what I have done to wit
Thanks to All

Dim FF As Long
Dim RowCount As Long
Dim ColCount As Long
Dim TotalFile As String
Dim MyFile As String
' Set myfile = "C:\Parade\ZZZ.txt" 'myfile = "c:\parade" & "mine.txt"
' Dim TotalFile As TextStream
'dim #FF as Variable
MyFile = "C:\Parade\zzz.txt"
FF = FreeFile
Open "C:\Parade\ZZZ.txt" For Output As #FF
For RowCount = 1 To Cells(Rows.Count, "A").End(xlUp).row
If WorksheetFunction.CountBlank(range("a" & RowCount & ":e" &
RowCount)) = 0 Then
If RowCount 1 Then TotalFile = TotalFile & vbCrLf
For ColCount = 1 To Cells(RowCount, Columns.Count).End(xlToLeft).Column
If ColCount 1 Then TotalFile = TotalFile & ","
TotalFile = TotalFile & Cells(RowCount, ColCount).Value
Next
End If
' Next
' With MyFile
' .TextFileParseType = xlDelimited
' .TextFileCommaDelimiter = True
' .Refresh
' End With
Dim Blanks As Long
Dim LastRow As Integer
Blanks = msgbox(Prompt:="Do you have blanks to complete?,If not sure
Click on Yes", Buttons:=vbYesNo)
If Blanks = vbYes Then
LastRow = Cells(Rows.Count, "A").End(xlUp).row
range("D5:M5").Resize(LastRow - 4).Select
Userform1_Main_form.Hide
Selection.specialcells(xlCellTypeBlanks).Select
End If
If Blanks = vbNo Then
With 'FreeFile 'FF 'MyFile
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
End If
Print #FF, TotalFile
Close #FF
End Sub