Private Sub Command1_Click()
Dim datos As String
Dim msg As String
Dim msgr As String
'datos
datos = "http://ildom.com/client/XML/es/errores.xml"
'hace un split e invierte los datos
msg = StrReverse(Split(datos, "http://ildom.com/")(1))

'otro split e invierte los datos
msg = StrReverse(Split(msg, "/")(0))

'otro split
msgr = Split(datos, "http://ildom.com/")(1)
'otro split .D
msgr = Split(msgr, msg)(0)

MsgBox msgr
End Sub

Sacar direcctorio de una web X

Visual Basic