How to find Current test name in QTP ?

Set qtApp = CreateObject("QuickTest.Application")
MsgBox qtApp.Test.Actions(1).Name


or


curAction = Environment.Value("ActionName")
msgbox curAction