message box,need to put code in fn library

[diya]

i was trying to close the message box but there are so many...i want to use function library ,how to proceed..
i used below code for one msg box and tried

Code:

Dim message
message= "information:"
Set oShell = CreateObject("WScript.Shell")
oShell.Popup message,15, "Title"

how to put this in fn libraray and call the function please let me know