Martini. O método Split tem incompatibilidade com algumas versões do windows, aquele negócio de SP2 SPkraio por isso eu sempre uso essa função.

 

Coloque a função abaixo em um módulo.

 

Public Function ExtractArgument(ArgNum As Integer, srchstr As String, Delim As String) As String
    
    On Error GoTo Err_ExtractArgument
    Dim ArgCount As Integer
    Dim MaxPos As Integer
    Dim Pos As Integer
    Dim Arg As String
    Arg = ""
    MaxPos = 1
    If ArgNum = 1 Then Arg = srchstr

    Do While InStr(srchstr, Delim) > 0
        Pos = InStr(MaxPos, srchstr, Delim)

        If Pos = 0 Then
            'No More Args found
            If ArgCount = ArgNum - 1 Then Arg = Mid(srchstr, MaxPos)
            Exit Do
        Else
            ArgCount = ArgCount + 1

            If ArgCount = ArgNum Then
                Arg = Mid(srchstr, MaxPos, Pos - MaxPos)
                Exit Do
            End If
        End If
        MaxPos = Pos + 1
    Loop
    '---------
    ExtractArgument = Arg
    Exit Function
Err_ExtractArgument:
    MsgBox "Error " & Err & ": " & Error
    Resume Next
End Function

 

Para usar essa função faça assim:

argumento1 = extractargument(1,cstr(mystring),"/")