Private VaseIme As String

 Public Property Get Ime() As String
     Ime = VaseIme
 End Property
 Public Property Let Ime(Value As String)
     VaseIme = Value
 End Property
Function aa()
    Ime = "Mujo"
End Function

Function BB()
Dim a
    MsgBox "Ime je:" & Ime
End Function