access レポート改行

accessのレポートで、スペースが入ったときに改行するようにしたいと思って調べたらすぐにコードが見つかったので、そのまま使った。非常にありがたい。
Function MyRep(ByVal strExp As String) As StringMyRep = Replace(Nz(strExp), Chr$(32), Chr$(13) & Chr$(10), Compare:=vbTextCompare)End Function