Names des VBA-Projektes

Wie kann man per VBA den Namen des VBA-Projektes ermitteln ? 
Sub Projektname()
   ThisWorkbook.VBProject.Name
End Sub