add text to cell in vba with carriage returns (ALT+ENTER) ??

[stevebovy]

I am loading some text data from an odbc data source that has crlf. I would like to convert these to excel fromat (alt+enter) . How can I do this ????

 

[John_w]

Replace CrLf with Chr(10), like this:

Sub test()
    Dim sText As String, sNewText As String
    
    sText = "Line 1" & vbCrLf & "Line 2"
    Range("A1").Value = sText
    
    sNewText = Replace(sText, vbCrLf, Chr(10))
    Range("B1").Value = sNewText
End Sub

 

[stevebovy]

Thanks very much, I figured it out for myself

replace(text,vbcrlf,vblf)