网页上精确提取数据(VB)

'   程序一：从网页上精确提取数据  
  '  
  '   为运行本程序，应在“菜单->工程->部件”中添加“Microsoft   Internet   Controls”  
  '   并在“菜单->工程->引用”中添加“Microsoft   HTML   Object   Library”  
  '  
  '   为了简洁，程序仅下载九只个股的基本信息  
  Option   Explicit  
  Private   Const   Form_ID   =   1  
  Dim   Code(9)   As   String  
  Dim   Current   As   Long  
  Private   Sub   Form_Load()  
      Form1.MousePointer   =   11  
      '   以下是个股代码  
      '   为了程序简洁，这里仅使用九只代码。  
      '   而在真实环境中，应从数据文件中读入全部个股代码。  
      Code(0)   =   "600001":   Code(1)   =   "600002":   Code(2)   =   "600003"  
      Code(3)   =   "600005":   Code(4)   =   "600006":   Code(5)   =   "600007"  
      Code(6)   =   "600008":   Code(7)   =   "600009":   Cod