Хорошо. Может быть, немного поздно, но у меня была та же проблема, и я решил ее так:
Dim Path As String() = Directory.GetCurrentDirectory.ToString.Split(New Char() {"\"c})
For i = 0 To Path.Count - 3
PathLb.Text = PathLb.Text & "\" & Path(i)
Next i
PathLb.Text = PathLb.Text.Remove(0, 1)
При этом путь содержится в PathLb.
Надеюсь, что это полезно для всех.