Custom vlookup with line breaks

[Roc314]

I found some code to use vlookup and concatenate data that has multiple matching values. It works great, but I need it to put in a line break after each result instead of a space. Any help is appreciated.

Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
'updateby Extendoffice 20151118
Dim x As Range
Dim result As String
result = ""
For Each x In lookuprange
If x = lookupval Then
result = result & " " & x.Offset(0, indexcol - 1)
End If
Next x
CusVlookup = result
End Function

 

[offthelip]

change this line

result = result & " " & x.Offset(0, indexcol - 1)

to

result = result & Chr(13) & x.Offset(0, indexcol - 1)

 

[Roc314]

change this line

result = result & " " & x.Offset(0, indexcol - 1)

to

result = result & Chr(13) & x.Offset(0, indexcol - 1)

I tried this, but all it did was put the results on one line in the cell with no spaces.