message box,need to put code in fn library

[diya]

Code:

Function messagebox()
Set a=createobject("wscript.shell") 'Creat one object
msgbox_message="Your Text"
msgbox_time=5
msgbox_title=""
a.popup msgbox_message,msgbox_time,msgbox_title

Set a=Nothing
end function

call messagebox

Not able to get.....associated the fn library using File->setting->resources->associate

---

Code:

Function messagebox()
Set a=createobject("wscript.shell") 'Creat one object
msgbox_message="Your Text"
msgbox_time=5
msgbox_title=""
a.popup msgbox_message,msgbox_time,msgbox_title

Set a=Nothing
end function

call messagebox

Not able to get.....associated the fn library using File->setting->resources->associate