Converting portion of tab name to Date

[cstimart]

I have a tab with a name of "Week Ending 03.02.11"

I am trying to create a function to put the date of 03/02/11 into a variable, but it's converting it to an AM/PM format. Any Suggestions?

here's the relevant portion of the code/function...

Function Days()
Dim nm As Date
Dim i As Integer
nm = Right(Worksheets(1).Name, 8)
.
.
.
End Function

 

[BobUmlas]

nm=application.substitute(right(sheets(1).name,8),".","/")