[AccessD] Bit OT - Reporting Services Question

Hello all

In reporting services if I run the code below (from Lambert) I get the error
message...

"Wend statements are no longer supported . Use "End While" statements instead

So If I replace wend with End while I don't get the desired result

The desired result is

From..... .C:\Program Files\Some Folder\some cool file.dll 

I want.....some cool file.dll 

But I am getting.....C:\Program Files\Some Folder

any suggestions??

Many thanks

Darren

Code Start>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Function GetPath(aPath) As String

Dim foo As Integer, aSlash As Integer

aSlash = 0

foo = InStr(aPath, "\")

While (foo > 0)

aSlash = foo

foo = InStr(aSlash + 1, aPath, "\")

end while

If aSlash > 0 Then

GetPath = Left$(aPath, aSlash)

Else

GetPath = aPath

End If

End Function