VBA 改行をOSによって切り替える

Excel For MacでVBAいじってて、
改行をOSで切り替えたいなと思ったら、案外簡単だった。
MacだとActiveXが使えなかったりしていろいろ不便ですね・・

Private Function LinefeedCode() As String
    If Application.OperatingSystem Like "*Mac*" Then
      ' Mac 向け
      LinefeedCode = vbCr
    Else
      ' Windows 向け
      LinefeedCode = vbCrLf
    End If
End Function

追記：
@nukie_53さんがもっと簡単な方法を教えてくださいました。
ありがとうございます！

vbNewLineというのが、使えるそうです！
※以下、コメントでご紹介頂いたものを貼らせて頂きました

その他の定数 | Microsoft Docs

定数	値	説明
vbNewLine	Chr(13) + Chr(10)。Macintosh の場合は、Chr(13)	プラットフォーム固有の改行文字。現在のプラットフォームに対応する文字が使用されます。