帮帮忙！！！如何用WINSOCK下载.txt文件到指定目录！！！

Question

1 增加一个 Winsock 控件， 名称为 Winsock1。
2 建立连接：
  Winsock1.RemoteHost = "nease.com"
  Winsock1.RemotePort = 80
  Winsock1.Connect
3 在Winsock1.Connect 事件中加入：
  
  Dim strCommand as String
  Dim strWebPage as String
  strWebPage = "http://www.nease.com/~kenj/index.html"
  strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 
  strCommand = strCommand + "Accept: */*" + vbCrLf 
  strCommand = strCommand + "Accept: text/html" + vbCrLf 
  strCommand = strCommand + vbCrLf 
  Winsock1.SendData strCommand
4 Winsock 开始下载， 在收到数据时， 发生DataArrival 事件。
  Dim webData As String 
  Winsock1.GetData webData, vbString
  TxtWebPage.Text = TxtWebPage.Text + webData