求救啊！用VB写一程序向excel写入规则数列

向各位大侠求救啊！小弟正在做一个毕业设计，以前没有接触过VB，要实现的功能是这样的
现有一个Excel文件，需要用VB将IP地址192.168.0.1至192.168.0.48写入到excel的第二列里
这对于各位懂VB的大侠来说是很简单的事啦，无限感激啊！！ --------------------编程问答-------------------- 看懂这个就OK了：
http://download.csdn.net/source/2341786 --------------------编程问答-------------------- Option   Explicit   
          Dim   xlsApp   As   Excel.Application   
          Dim   xlsBook   As   Excel.Workbook   
          Dim   xlsSheet   As   Excel.Worksheet   
    
  Private   Sub   Command1_Click()   
          Set   xlsApp   =   New   Excel.Application   
          Set   xlsBook   =   xlsApp.Workbooks.Open("c:\table1.xls")   
          Set   xlsSheet   =   xlsBook.Worksheets(1)   
          xlssheet.cells(3,1)=“你好”   
          xlsApp.Visible   =   True   
    
  End   Sub   
但是如何添加IP呢，这就是关键问题了！请各位兄弟帮帮忙吧，时间不多了！跪谢！ --------------------编程问答-------------------- 在你的代码后加上这一段即可
dim ip as string,i as long
ip="192.168.0."
for i=1 to 48
   xlssheet.cells(i,2)= ip & cstr(i)
next

补充：VB ,  基础类