update,

armandarmand/task1/task1-ticket1/helloworld/browser/hello-aastock/ReadStockCode.bas

@@ -0,0 +1,22 @@
+Attribute VB_Name = "ReadStockCode"
+Option Explicit
+
+Function run(row as integer)
+  On Error GoTo eh
+  Dim temp as string
+  temp = Worksheets(TARGET_SHEET).Range(COL_STOCK_CODE & CStr(row)).Value
+  
+  if (temp = "") then
+    temp = -1
+  end if
+
+  run = temp  
+Done:
+  exit Function
+
+eh:
+  debug.print "ReadStockCode"
+  debug.print row
+  debug.print temp
+
+End Function