如何使用VBA提取两个相似字符之间的字符串中的单词?

我需要提取 Wrd_03 从这个字符串:

"https://Word01.com/Word_02/Wrd_03/Word_04/Word_05=0"

我的代码没有,因为我得到了不同的结果:

Sub ExtractWord()

Dim sString As String, pString As String, iString As Long, jString As Long

sString = "https://Word01.com/Word_02/Wööörd_03/Word_04/Word_05=0"

iString = InStr(sString, "/")
jString = InStrRev(sString, "/")
pString = Mid(sString, iString + 21, jString - iString - 29)

MsgBox pString

End Sub

有人知道更好的方法吗 总是 提取单词 在第四和第五个斜线之间 ?

谢谢