ちなみに余計なお節介かもしれんけど
Dim Cnt, Num As Integer　と書くと ｃｎｔはVariant型だぞ