update,

task1/task1-ticket1/helloworld/browser/hello-etnet/WriteYield.bas

@@ -0,0 +1,17 @@
+Attribute VB_Name = "WriteYield"
+Option Explicit
+
+Function run(row As Integer, content As String)
+  On Error GoTo eh
+  Worksheets(TARGET_SHEET).Range(COL_YIELD & CStr(row)).Value = content
+  
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "WriteYield"
+  Debug.Print row
+  Debug.Print content
+
+End Function
+