The following example displays the name of the currently executing task in a message box.
Sub Main
Dim RunningTask As Variant
RunningTask = CurrentTask.TaskName
MsgBox RunningTask
End Sub