Problemas con la variable

Este es mi código fuente pero me sale un error al tratarlo de ejecutar cuando declaro la variable contador me da el error, es el que esta entre asteriscos y si quito la declaración de la variable contador me dice que la variable no esta declarada y la he declarado como int, long
Gracias
Option Explicit
contador As Long
Const elemento = 12
Dim tabla(1 To elemento) As Integer
Private Sub Form_Load()
Randomize
For contador = 1 To 12
tabla(contador) = Int((9 * Rnd) + 1)
Lista.AddItem tabla(contador)
Next contador
End Sub
*******Compile error:
Statment invalid outside type Block*********