VBA: "error 6 overflow"

Jeg skal til en graf anvende et/flere binært tal.
Jeg er i denne forbindelse udfordret på en fejlmeldning i VBA på overflow error 6. Jeg oplever ingen problemer, når jeg fx vil gange de to tal, men ved brugen af AND, så går det galt.
Har forsøgt at læse lidt fra tidligere lign. spørgsmål, men er ikke kommet i hus udover at det måske er noget med 32bit er maks og jeg kommer over 32 bit her (og jeg er altså ingenlunde programmeringsekspert)

Min kode ser således ud:

Dim var1 As Double
Dim var2 As Double
Dim var3 As Double
Dim Antal As Integer


Sub Binært_tal()


Antal = Cells(1, 8)

For J = 1 To Antal

var1 = 2 ^ 32
var2 = 2 ^ 30

var3 = var1 And var2

Cells(J, 3) = var3

Next J

End Sub


Nogle, der kan hjælpe mig videre?