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