vbCrLf is causing square box on last line

[cowboy]

I have the following code, it displays what I want on each line but on the last light because it is doing a "vbCrLf" it is leaving a square box symbol in my table. How should I go about getting rid of the square box?

With rs
If .RecordCount <> 0 Then
.MoveFirst
'start concatenating records
Do While Not rs.EOF
varConcat = varConcat & rs("[MH Component]") & " " & rs("[PACP Defect]") & vbCrLf
.MoveNext
Loop
End If
End With

[RuralGuy]

How about removing the last vbCrLf *after* you drop out of the loop?