One of the many ways:
Function fSecondValue(ByVal Origin As String, ByVal separator As String) As String
fSecondValue = Mid(Origin, InStr(1, Origin, separator) + 1, _
InStr(InStr(1, Origin, separator) + 1, Origin, separator) - _
InStr(1, Origin, separator) - 1)
End Function
InStr(1...