Function showMessage(msg)
	showMessage = MsgBox(msg,vbInformation,"ÏûÏ¢")
End Function