assim?

 

Private Sub Command1_Click()
  Dim strCaminho As String
  Dim strAux As String
  Dim intPosicao As Integer
  strCaminho = "pastasubpastaarquivoarq.zip"
  intPosicao = InStr(1, strCaminho, "")
  If intPosicao <> 0 Then
    strAux = Mid(strCaminho, intPosicao + 1)
    intPosicao = InStr(1, strAux, "")
    strAux = Mid(strAux, 1, intPosicao - 1)
  End If
  MsgBox strAux
End Sub

 

retorno: pastaarquivo