REM  *****  BASIC  *****

Rem Attribute VBA_ModuleType=VBAModule

Sub AddValueToCellOpenShellSync()

	Dim n_value As Integer
	Dim path_bash As String
	Dim o_sheet As Object, o_cell As Object
	Dim bln_true As Boolean, bln_false As Boolean
	
	bln_true = true
	bln_false = false
	o_sheet = ThisComponent.Sheets(0)
	path_bash = "/Полный/Путь/До/Скрипта/go_1.sh"
  	
	Shell(path_bash, 0, "", bln_true)

	For i = 0 To 20
		Wait 1000
		o_cell = o_sheet.getCellByPosition(0, i)
		n_value = 10
		o_cell.setValue(n_value)
	Next i
   
End Sub