请教如何在VB里调用WINRAR，将一个目录内的每一个文件都生成一个压缩文件？
例如一个目录中有10个TXT文件：1.txt、2.txt......10.txt，现在想要将这10个文件分别压缩成1.rar、2.rar......10.rar。

程序已有，但不知如何达到这个目的。

    Dim Rarexe As String 'WINRAR执行文件的位置
    Dim Source As String '压缩前的原始文件
    Dim Target As String '压缩后的目标文件
    Dim FileString As String 'Shell指令中的字符串
    Dim Result As Long
    For i = 0 To File1.ListCount - 1
    Rarexe = "C:\Program Files\WinRAR\winrar.exe"
    Source = Dir1.Path & " \ " & File1.List(i)
    Target = Dir1.Path & " \ " & File1.List(i) & ".rar"
    FileString = Rarexe & " a " & Target & " " & Source
    Result = Shell(FileString, vbHide)
    Next i

主要是程序中的红色部位（命令与参数）不知道该如何写。