This should do the trick:
Function Main()
DIM oPkg
SET oPkg = DTSGlobalVariables.Parent
DTSGlobalVariables("g_PackageName").Value = oPkg.Name
msgBox("Package Name = " & DTSGlobalVariables("g_PackageName").Value)
Main = DTSTaskExecResult_Success
End Function
Good Luck,
Darrell