Alternativa, se o nome do arquivo seguir o padrão do seu exemplo:

Sub Nome()

n = ActiveWorkbook.Name
r = ""

i = 1
j = Len(n)

Do While i <= j
If IsNumeric(Mid(n, i, 1)) = False Then
i = i + 1
Else
r = r & Mid(n, i, 1)
i = i + 1
End If
Loop
MsgBox (r)

End Sub

Sem Loop:

Sub Nome2()

n = ActiveWorkbook.Name
i = Application.WorksheetFunction.Search("-", n, 1)
j = Application.WorksheetFunction.Search("-", n, i + 1)
MsgBox (Mid(n, i + 2, j - i - 3))

End Sub

Boa tarde Edson,

Usei essa informação pois queria adicioná-la ao MSProject.

Sendo assim, não achei nada que substituisse WorksheetFunction pela função do Project.