update,

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

@@ -0,0 +1,16 @@
+Attribute VB_Name = "WriteStatus"
+Option Explicit
+
+Function run(content As String)
+  On Error GoTo eh
+  Worksheets(TARGET_SHEET).Range("A1").Value = content
+  
+Done:
+  Exit Function
+
+eh:
+  Debug.Print "WriteStatus"
+  Debug.Print content
+
+End Function
+