vb如何把表单里的值post提交

写的自动填写表单的功能，
现在我想command3按钮把text2 text3的值 post提交上到 savesubmit.php

不知道如何写代码 麻烦高手贴下代码或者告诉我实现思路  谢谢 

Dim text() As String
Private Sub Command1_Click()
  text = Split(Text1.text, "/")
  wb = ""
  For i = 0 To UBound(text)
    If i = UBound(text) Then
      wb = wb + "document.all('" + text(i) + "')"
    Else
      wb = wb + "document.frames('" + text(i) + "')."
    End If
    Web.Navigate "javascript:try{" + wb + ".value='" + Text2.text + "';};catch(e){alert('表单路径不正确.')};function a(){};a();"



  Next
End Sub

Private Sub Command2_Click()
 text = Split(Text4.text, "/")
  wb = ""
  For i = 0 To UBound(text)
    If i = UBound(text) Then
      wb = wb + "document.all('" + text(i) + "')"
    Else
      wb = wb + "document.frames('" + text(i) + "')."
    End If
    Web.Navigate "javascript:try{" + wb + ".value='" + Text3.text + "';};catch(e){alert('表单路径不正确.')};function a(){};a();"

  Next
End Sub

Private Sub Command3_Click()

End Sub

Private Sub Form_Load()
Web.Navigate "http://www.zone-h.com.cn/submit.php"
End Sub

VB command

补充：VB ,  网络编程