How about this little user-defined function:

Function SplitString(sTargetString As String, sOperation As String, Optional sDelimiter = "-") As Variant

Dim sSplit As String

sSplit = "{" & Replace(sTargetString, sDelimiter, ";") & "}"

SplitString = Evaluate("=" & sOperation & "(" & sSplit & ")")

If IsError(SplitString) Then
  SplitString = "#VALUE"
End If

End Function
Then, with your data in cell A1:

=SplitString(A1,"MAX")

or

=SplitString(A1,"MIN")