A have a problem with on of my modules. I downloaded a module for create a counter for my application in Excel. I integrated them successfully. But after i wanted rewrute them for my own purpose and insert in them my own instance of class..But them i want to let a property of my odject them compilator return me an error ..This is a module

Option Explicit

Dim timer_enabled As Boolean
Dim timer_interval As Double
Public stock As Class1
Sub skanning()

    Set stock = New Class1
    Dim row As Integer
    Dim temp As String
    Dim start_column As Integer
    Dim start_row As Integer

row = 6

While Worksheets("Сканер").Cells(row, 2) <> ""
temp = Worksheets("Сканер").Cells(row, 2)
start_column = 2
start_row = row
stock.get_short_name = Worksheets("Сканер").Cells(start_row, start_column)
stock.get_revenue = Worksheets("Сканер").Cells(start_row, start_column + 1)
stock.get_revard = Worksheets("Сканер").Cells(start_row, start_column + 2)
stock.get_marja = Worksheets("Сканер").Cells(start_row, start_column + 3)
stock.get_trading = Worksheets("Сканер").Cells(start_row, start_column + 4)
stock.get_short = Worksheets("Сканер").Cells(start_row, start_column + 5)
stock.get_code = Worksheets("Сканер").Cells(start_row, start_column + 6)
stock.get_weigth = Worksheets("Сканер").Cells(start_row, start_column + 7)
stock.get_diver = Worksheets("Сканер").Cells(start_row, start_column + 8)
stock.get_price = Worksheets("Сканер").Cells(start_row, start_column + 9)
stock.get_price_1 = Worksheets("Сканер").Cells(start_row, start_column + 10)
stock.get_price_2 = Worksheets("Сканер").Cells(start_row, start_column + 11)
stock.rest = Worksheets("Сканер").Cells(start_row, start_column + 12)
stock.max_pos = Worksheets("Сканер").Cells(start_row, start_column + 13)
stock.rest_limit = Worksheets("Сканер").Cells(start_row, start_column + 14)
stock.svoy = Worksheets("Сканер").Cells(start_row, start_column + 15)
stock.parameter_j = Worksheets("Сканер").Cells(start_row, start_column + 16)
stock.parameter_z = Worksheets("Сканер").Cells(start_row, start_column + 17)
stock.abs_parameter_z = Worksheets("Сканер").Cells(start_row, start_column + 18)
stock.parameter_m = Worksheets("Сканер").Cells(start_row, start_column + 19)
stock.parameter_k = Worksheets("Сканер").Cells(start_row, start_column + 20)
stock.parameter_h = Worksheets("Сканер").Cells(start_row, start_column + 21)
row = row + 1
Wend
End Sub


Sub Timer()
    Range("L2").Value = CStr(Time)
End Sub


Sub timer_OnTimer()
    Call Timer
    Call skanning
     If timer_enabled Then Call timer_Start
End Sub

Sub timer_Start(Optional ByVal interval As Double)
    If interval > 0 Then timer_interval = interval
    timer_enabled = True
    If timer_interval > 0 Then Application.OnTime (Now + timer_interval), "Timer_OnTimer"
End Sub

Sub timer_Stop()
    timer_enabled = False
End Sub