如何从vbscript中的函数返回sub或function的名称？

Question

我在VBScript代码中有一个sub。每当我从脚本中调用它时，我想打印sub的名称 例如，它应该像下面这样工作：

for i=0 to 3  
 PrintSubName  
Next  


Sub PrintSubName()  
 Print PrintSubName.name '''Here some code that prints name of the sub like "PrintSubName"  
End Sub  

输出应为：

PrintSubName  
PrintSubName  
PrintSubName  
PrintSubName