Get Current path of the project using Reflection in vb.net

Private Function GetCurrentPath() As String
Dim strPath As String = System.Reflection.Assembly.GetExecutingAssembly.Location
Dim n As Integer = InStrRev(strPath, "\")
If (n > 0) Then
strPath = Mid(strPath, 1, n)
End If
Return strPath
End Function

Response.Write(System.IO.Path.GetFileName(System.Reflection.Assembly.GetExecutingAssembly().Location));