On Local Error Resume Next: If Not Empty Is Nothing Then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(CLng(CInt(CBool(False Imp True Xor False Eqv True)))): Stop: On Local Error GoTo 0 My CodeBank ContributionsDeclare Sub CrashVB Lib "msvbvm60" (Optional DontPassMe As Any)
Forum Rules