6 lines
127 B
Text
6 lines
127 B
Text
|
sub Assert( boolExpr, strOnFail )
|
||
|
|
if not boolExpr then
|
||
|
|
Err.Raise vbObjectError + 99999, , strOnFail
|
||
|
|
end if
|
||
|
|
end sub
|