Saludos, prueba usar la siguiente función para obtener el path:
Código vb:
Ver originalPrivate Function getAppPath() As String
Dim path As String
' Obtiene el path de la aplicación
path = My.Application.Info.DirectoryPath()
' Añade el backslash en caso el ejecutable se encuentre en la raiz de una unidad
If Not path.Substring(path.Length - 1) = "\" Then
path += "\"
End If
' Devuelve la variable con la ruta completa
Return path
End Function
Espero que te sea de utilidad