update,

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

@@ -0,0 +1,23 @@
+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
+