Vb how to form the value in the post submission-CodePudding

Automatic filling in forms,
Now I want to command3 button to text2 text3 values on the post submission to savesubmit. PHP

Don't know how to write code trouble master post code or tell me the implementation approach under thank

Dim the 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) + "')"
The Else
Wb=wb + "document. Frames (" "+ text (I) + "")."
End the If
Web. Navigate "javascript: try {" + wb +" value='" + Text2. Text + "'; }; The catch (e) {alert (' form path is not correct. ')}; 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) + "')"
The Else
Wb=wb + "document. Frames (" "+ text (I) + "")."
End the If
Web. Navigate "javascript: try {" + wb +" value='" + Text3. Text + "'; }; The catch (e) {alert (' form path is not correct. ')}; 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