Public Function ReplaceCR_LF(ToBeFormatted As String) As String
Dim L As Integer
Dim Formatted As String
Formatted = ToBeFormatted
For L = 1 To Len(Formatted)
If Mid$(Formatted, L, 1) = Chr$(13) Or Mid$(Formatted, L, 1) =
Chr$(10) Then
Formatted = Left$(Formatted, L - 1) & " " & Right$(Formatted,
Len(Formatted) - L - 1)
End If
Next
ReplaceCR_LF = Formatted
End Function
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.