Se hai riportato correttamente le eccezioni, questa funziona
Function StripMid(strIN As String) As String
    Dim intStart As Integer
    Dim intStop As Integer
    strIN = Replace(strIN, " E3,", vbNullString)
    intStart = InStr(1, strIN, "- ") + 2
    intStop = InStr(intStart, strIN, ", ")
    StripMid = Mid$(strIN, intStart, intStop - intStart)
End Function