Ubicacion

Mira:
Puedes tomar la ruta con:
gRUTA =
System.Reflection.Assembly.GetExecutingAssembly.Location

QUE LA RUTA DE EXECICION NORMALMENTE ES AL DE BIN.

EN QUE ESTAN LOS EXES.

Dim FileInfo As System.IO.FileInfo = New
System.IO.FileInfo(gRUTA)
If Not FileInfo.Exists Then
MessageBox.Show("Imposible determinar la ruta
de ejecución de la aplicación", "Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
gRUTA = FileInfo.DirectoryName
Dim i As Integer
i = InStrRev(gRUTA, "\")
gRUTA = gRUTA.Substring(0, i - 1)
End If