Вызов функции из другого файла

[science 2]

Добрый день.

Подскажите пожалуйста как вызвать функцию из другого файла?

Есть функция в отдельном файле

 

Function viz_func(Per As Integer)
Per = Per + 3
Set swApp = Application.SldWorks
End Function
 

И есть процедура в другом файле в которой нужно вызвать первую функцию

 

Dim swApp As Object
Sub main()
Dim Per As Integer
Per = 4
Call viz_func(Per) <<< не работает
Debug.Print Per
Set swApp = Application.SldWorks
End Sub

 

Функция не вызывается. Ошибка 424 "Object requared"

[Kelny 1 236]

Так для отдачи функции/процедуры на сторону, она должна быть объявлена публичной: Public ...