update,

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

@@ -0,0 +1,7 @@
+Attribute VB_Name = "ReadStockCode"
+Option Explicit
+
+Function run(row as integer)
+  run = Worksheets("Sheet1").Range("A" & CStr(row)).Value
+
+End Function