[2005] App.Path

[oyad]

whats the best way to get the famous App.path in vb6 using vb.net 2005?i currently use this :
Dim sRet As String = ""
Try
sRet = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase )
sRet = sRet.ToLower
If sRet.StartsWith("file:\") Then sRet = sRet.Substring(6)
Catch ex As Exception
Debug.Fail(ex.TargetSite.Name & vbNewLine & ex.Message)
End Try