Error al buscar archivo vb.net 2003

Hola, cuando quiero obtener el directorio en donde esta ubicado un archivo
si utilizo el OpenFileDialgo funciona, pero si le paso la direccion por
variable me da un error.

Este es el codigo que deberia funcionar de una u otra forma.
p_Ruta es la variable STRING en donde se almacena la ruta y nombre del
archivo.

Dim Open As New OpenFileDialog

Dim Directory As Directory



' Retorna la unidad, ejemplo C:\

Unidad = Directory.GetDirectoryRoot(p_Ruta)

' Retorna el directorio, ejemplo \mis documentos\

'Si es el rais no retorna nada

Directorio = Directory.GetCurrentDirectory.Remove(0, Unidad.Length+1)

Directorio = IIf(Directorio.Length <> 0, Directorio & "\", Directorio)


Aqui por ejemplo, si utilizo OpenFileDialgo para buscar el archivo y lo
asigno a p_Ruta el resultado es el esperado.
Ej:
open.sohwfiledialog
p_ruta = open.FileName

Me retorna:
Unidad = c:\
Directorio = daniel

Pero si le asigno la ruta de la siguiente manera.
p_Ruta = "c:\daniel\archivo.txt

Me retorna:
Unidad = c:\
Directorio = Documents and Settings\Administrador\Mis documentos\Visual
Studio Projects\WindowsApplication1\bin




-==
http://apuntes-daniel.blogspot.com
http://myrecetario.blogspot.com
http://alejandriavirtual.blogspot.com
http://alejandriavirtual-biografias.blogspot.com
-==