Dim Count, Index, arrNumber(), Element, lngResultFor Count = 100 To 999
If Count Mod 7 = 0 Then
ReDim Preserve arrNumber(Index)
arrNumber(Index) = Count
Index = Index + 1
End IfNextFor Each Element In arrNumber
lngResult = lngResult + ElementNextMsgBox lngResult...
