Public sub Macr()
dim a as long
dim b as string
a=1
b="до"
...
.run ("PERSONAL!Macros.Work",a,b)
....
msgbox (a & chr(10) & b)
end sub

sub Work (ByVal a As long, ByVal b as String)
a=2
b="на"
end sub

sub Work (ByRef a As long, ByRef b as String)

Public Sub Macr()
dim a as long
dim b as string
a=0
b="Макрос не сработал"

        Excel = CreateObject("Excel.Application")
        With Excel
            .Visible = True
            With .WorkBooks.Open("D:\Work.xls")
                .Application.Run("'PERSONAL!Macros.Work", a,b)
            End With
        End With

        MsgBox(b & chr(10) & "Кол-во строк " & a)
    End Sub

Sub Work (ByVal a As long, ByVal b as String)
       Do
         a =a + 1
              If Range("E" & a) = "" Then Exit Do  
       Loop
b="Макрос сработал"
End Sub