Searching and removing specific text from string 1

[Webkins]

I am using Access 2003 and VBA. What I have is a string of text like this for example:

Paula's Home Cooking - ''House Warming'' (Recorded Sep 18, 2009, FOOD).TiVo

What I would like to do with the VBA is to rename this file to simply: House Warming.TiVo

But I am not aware of how to search and delete the required text. Please note that I have many different files and the text is always different but always what I want is contained between the '' and '' (double single quotes not quotation marks) characters. Any suggestions ?
Thank you for any and all replies.

 

[CautionMP]

[tt]Dim astr() As String
Split([small]"Paula's Home Cooking - ''House Warming'' (Recorded Sep 18, 2009, FOOD).TiVo"[/small], "''")
Debug.Print astr(1)[/tt]

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)