Option Explicit
'Fast declare
  Const eight = 999999
  Private i() As Long
  Private MyConstArray() As Long
  Private MixFactor() As Long    ' max use of one element  '... into ...
'End fast declarePrivate Sub Command1_Click()'………………
'………………
    
End SubPrivate Function MyComp(ByRef a() As Long, aUpper As Long, ByRef b() As Long, bUpper As Long) As BooleanEnd FunctionPrivate Function MyDiv(ByRef a() As Long, aUpper As Long, ByRef b() As Long, bUpper As Long) As Long()End FunctionPrivate Function MyMulti(ByRef a() As Long, aUpper As Long, ByRef b() As Long, bUpper As Long) As Long()
  
End FunctionPrivate Function MyMod(ByRef a() As Long, aUpper As Long, ByRef b() As Long, bUpper As Long) As Long()End Function