使用VBA调用RAR压缩成ZIP文件

在模块中想使用VBA调用WINRAR压缩D：\data.xls文件为ZIP文件并以日期来命名，我所了解到的是用SHELL调用外部程序，使用RAR提供的命令行模式来实现，但是不知道如何写，谢谢！ --------------------编程问答--------------------

Sub Main()

    Dim zipName As String

    zipName = "D:\" & Format(Now(), "yyyymmdd") & ".zip"

    Shell "C:\Program Files\WinRAR\WinRAR.exe a -r " & zipName & " d:\data.xls"

End Sub

补充：VB ,  VBA