Sub Test

Dim i AS Long

i=1

End Sub