vb 上传数据问题

Question

我用inet控件用的HTTP协议执行上传.需要实现功能.在服务器上的 vbtest/目录下有个存放密码文件pw.txt.文件中存入123456
然后.本地用户通过修改新密码后.程序将新密码(如:1234)上传到服务器上.覆盖原来的123456.(不是在本地先将1234存入为一个文本,然后在上传这个文本,)就是怎么样上传这个1234数据.搞了一天.还没有搞定.大家有什么好的方法没?谢谢了
以下是我源码:
Dim b() As Byte
Dim strUrl As String
Dim strHead As String
Dim isbusy  As Boolean
Dim OldPassword As String   '用户旧密码
Dim NewPassword As String   '用户新密码
 InetHTTP.Protocol = icHTTP
 InetHTTP.RemotePort = 80
 strUrl = "http://www.xxxxxx.com/vbtest/" + filename
b() = InetHTTP.OpenURL(strUrl, icByteArray)
OldPassword = StrConv(b, vbUnicode)
Text1.Text = OldPassword '获得旧密码,这个能成功得到
NewPassword = Trim(Text2.Text) '获得新密码
strHead = "Content-Type:   application/x-www-form-urlencoded"InetHTTP.Execute strUrl, "POST", NewPassword, strHead        isbusy = InetHTTP.StillExecuting 
       Do While isbusy
        isbusy = InetHTTP.StillExecuting
          DoEvents
        Loop