Macro to display part of filename in cell

Hi everybody.
Is there a way to insert in the "text to display" only part of the filename as opposed to the entire filename? For Example if the filename is called "2014-02-20 order-no.465-Product.xlsm" I would like for the code to extract the number "465" and the word "Product" and display the text as "465 Product" on the selected cell.
Thanks in advance:-)

Sub add_hyperlink()
Workbooks("Chart1").Sheets(1).Hyperlinks.Add Anchor:=Workbooks("Chart1").Sheets(1).Range("A1"),Address:=ActiveWorkbook.FullName, TextToDisplay:=ActiveWorkbook.Name
End Sub