code195a.txt

VB大全（精华版）源代码

Public Function MathCorrected(ByVal Error) As Boolean
  Select Case Error.Number

  Case 5
    MsgText = "The called function received unexpected data.