求教VB做一个命令控件把已有TEXT1的数据写到OLE中EXCEL单元格里的代码

Private Sub Command1_Click()Dim i As Integer, xls As ObjectSet xls = OLE1.object.sheets(1)Do i = i + 1Loop Until xls.cells(i, 1).Value = ""xls.cells(i, 1).Value = Text1.TextEnd Sub