[dba-SQLServer] Wend Statement Not Allowed

Hello all
In reporting services if I run the code below (from Lambert over at AccessD) 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