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

0 vote331 views1 answer
Vba foreach 2d array
VBA
0 vote289 views1 answer
Vba get application version
VBA
-1 vote318 views1 answer
Code for reading letters only in vb 6
VBA
0 vote318 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
18 votes432 views3 answers
Excel-vba make integer
VBA
0 vote293 views1 answer
Vba check 32 or 64 bit
VBA
1 vote246 views1 answer
Vba exit do while
VBA
0 vote303 views1 answer
Excel vba unlock sheet without password
VBA
22 votes410 views1 answer
Excel vba check if directory exists
VBA
5 votes275 views1 answer
Vba array worksheet.index
VBA