Hyperlink problem

[Yasaf Burshan]

Hi,
I'm trying to set up hyplerlink.address value the following vba code

Dim invoicespath As String
Dim invoicesshortpath As String

invoicespath = "c:\management\invoices\"
invoicesshortpath = "invoices\"

MkDir (invoicespath & CompanyName)
Me.Companydirectory.Hyperlink.TextToDisplay = "Click here"
Me.Companydirectory.Hyperlink.Address = "invoicesshortpath & CompanyName
end sub

but everytime I'm running the code I get the following error message:
run-time error '7980':
the hyperlinkaddress or hyperlinksubaddress property is read-only for this
hyperlink

I would appreciate a tip on how to solve this problem.
thanks in advance