modify the condition in the loop sentences and rewrite the explanation of VB6.UBound