excel用vb给单元格赋值提示“要求对象”？

程序如下，刚学了不久，我想把vb窗体中输入的值用excel报表输出，最后一句老报错：错误“424”，要求对象？？
Private Sub Command1_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.add
xlapp.Visible = True
Worksheets("Sheet1").Activate
Set xlsheet = xlbook.Worksheets(1)
xlsheet1.Range("A3") = 0                ‘这句报错