Type Info:
DatatypeString As String
Dim ProjFile As ProjectFile Set ProjFile = Application.ActiveProjectFile MsgBox ProjFile.DatatypeString