各位老师：我是新手
如标题
有一张excel表格在sheet1中 b列有若干数据，采用VBA语法
Sub 表（）
Dim a as string
a=Worksheets("sheet1").Range(“b1048576").End(xlUp).Row
msgbos a
End sub
可以获得b列最后一个非空单元格的行号

问题是，采用vb6.0后，怎样实现？因为“End(xlUp) “在vb6.0中是不认的。
望各位指点，盼复，谢谢。

已经引用了microsoft excel 14.x Object Library（我装的是excel2010版）。
已经试过vb6.0 不支持end属性，我想知道vb6.0里面有和VBA中End(xlUp)相同（或相近）的用法的吗？