Key Sprite loop reads Excel problems

Key sprit loop reading Excel problem

读取Excel路径 = Form1.BrowseBox1.Path '设置路径
写入Excel路径 = Form1.BrowseBox2.Path '设置路径
y = Form1.InputBox1.Text + 0
h = Form1.InputBox2.Text + 0
s = Form1.InputBox3.Text + 0
Dim 内容()
Call Plugin.Office.OpenXls(读取Excel路径)
For i = h To 99999
Text = Plugin.Office.ReadXls(1, i, y)
            Shul = Plugin.Office.ReadXls(1, i, s)
TracePrint Text
    TracePrint Shul
If Text = "" Then
Exit For
Else
ReDim Preserve 内容(i)
内容(i) = Text
End If
Next
Call Plugin.Office.CloseXls()
数量 = UBound(内容)
TracePrint "数量: " & 数量
Delay 10
Call Plugin.Office.OpenXls(写入Excel路径)
For i = 1 To 数量
                Tex = Split(内容(i), ",")
Call Plugin.Office.WriteXls(1, i, 1, Tex(1))
            TracePrint Tex(1)
                TracePrint Shul
Next
Call Plugin.Office.CloseXls()
Sub OnScriptExit()
MessageBox "成功读取并保存" & 数量 & "个数据"
End Sub

In this code the Shul has a message for the first loop and is empty until the next output. Ask me how to change it so that Shul outputs what it gets