Vba remove line breaks

' Removes line breaks and spaces at the end of text
Function RemoveLastLineBreaks(ByRef pText As String) As String
    Dim textLng As Long
    RemoveLastLineBreaks = pText
    textLng = Len(RemoveLastLineBreaks)
    While (textLng > 0 And (Mid(RemoveLastLineBreaks, textLng) = vbCr _
            Or Mid(RemoveLastLineBreaks, textLng) = vbLf) _
            Or Mid(RemoveLastLineBreaks, textLng) = " ")
        RemoveLastLineBreaks = Mid(RemoveLastLineBreaks, 1, textLng - 1)
        textLng = Len(RemoveLastLineBreaks)
    Wend
End Function

Vba remove last vbcrlf

' Removes the Line Break from the string if my string Ends with Line Break
Sub RemoveLineBreak(myString)
    If Len(myString) > 0 Then
        If Right$(myString, 2) = vbCrLf Or Right$(myString, 2) = vbNewLine Then 
            myString = Left$(myString, Len(myString) - 2)
        End If
    End If
End Sub

Source: stackoverflow.com

Similar codes

9 votes491 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
1 vote218 views1 answer
Vba delete file
VBA
0 vote214 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
2 votes211 views1 answer
Excel vba date to string conversion
VBA
0 vote247 views1 answer
Vba code for cutoff time
VBA
0 vote205 views1 answer
Style percent not found vba
VBA
1 vote232 views1 answer
How to remove zeros in excel
VBA
0 vote230 views1 answer
Excel vba combine ranges
VBA
0 vote233 views1 answer
Vba word open document read only
VBA
22 votes504 views1 answer
Excelvba check for directory
VBA