Private Sub Command1_Click() 
Dim StrTxt As String 
Open App.Path & "\" & "1.txt" For Input As #1 
Line Input #1, StrTxt 
Text1.Text = StrTxt 
Do Until EOF(1) 
Line Input #1, StrTxt 
Text2.Text = Text2.Text & StrTxt & vbCrLf 
Loop 
Close #1 
Set WBDocument = WebBrowser1.Document 
WBDocument.body.All("username").Value = Text1.Text '--标题 
WBDocument.body.All("password").Value = Text2.Text '--内容 
WBDocument.body.All("登录邮箱").Click '------登陆 

End Sub 


Private Sub Form_Load() 

WebBrowser1.Navigate "http://mail.163.com/" 
End Sub 

第二次不能提交填表出错。请问题怎样更改