Get the whole path before the last counterslash

[RobiNew]

I know how to get the last subfolder in a path (here below), but how do I get the whole path before the last counterslash? Thanks!

Sub BeforeCounterslash()
Dim StrText As String
StrText = Trim(Split("C:\Sub_1\Sub_2\Sub_3", "\")(3))
MsgBox StrText
End Sub

[RobiNew]

This one works OK, but is there a simpler method? Thanks!

Sub TestNew()
Dim StrPath As String, t As Long
StrPath = "C:\Sub_1\Sub_2\Sub_3"
If Right(StrPath, 1) = "\" Then StrPath = Left(StrPath, Len(StrPath) - 1)
t = InStrRev(StrPath, "\")
StrPath = Left(StrPath, t - 1)
MsgBox StrPath
End Sub

[vivka]

Hi, RobiNew! I would use a simplified variant of your code without any Ifs:

Sub BeforeCounterslash()

Dim StrPath As String
StrPath = "C:\Sub_1\Sub_2\Sub_3"

  StrPath = left(StrPath, InStrRev(StrPath, "\") - 1)
MsgBox StrPath
End Sub

[RobiNew]

Thanks a lot, Vivka! You are always the best!

[vivka]

Thank you, RobiNew, for your kind words! I'm not the best, I'm still learning. There are real gurus here. Besides, it may be a revelation to you, I've learned some new tricks from your codes, too. So, you are also a kind of my teacher.