VBA Print and spaces

[galore]

Hi,

When I use the print command on VBA to get the content from a cell and write it in a text file, I have a problem:

I always get a lot of spaces before and after the caracters (the number varies 3-13)

How can I get rid off the blank characters?

Print #1, MyVar, Insert, c

PD: When I use write I always get "" in many cells that I do not need.

Thanks

 

[galore]

I have found this code, but it is not a macro:

Function NoNumSpaces(S As String) As String
Dim X As Long
NoNumSpaces = WorksheetFunction.Trim(S)
For X = Len(NoNumSpaces) To 1 Step -1
If Mid(NoNumSpaces, X, 3) Like "# #" Then NoNumSpaces = WorksheetFunction.Replace(NoNumSpaces, X + 1, 1, "")
Next
End Function

 

[galore]

I have found this code, but it is not a macro:

Function NoNumSpaces(S As String) As String
Dim X As Long
NoNumSpaces = WorksheetFunction.Trim(S)
For X = Len(NoNumSpaces) To 1 Step -1
If Mid(NoNumSpaces, X, 3) Like "# #" Then NoNumSpaces = WorksheetFunction.Replace(NoNumSpaces, X + 1, 1, "")
Next
End Function