Ver originalPublic Function ReturnToSpace(ByVal sItem As String) Dim newsItem As String newsItem = Trim(sItem.Replace(vbCrLf, " ")) Return newsItem End Function