关于TEXTBOX里总字符长度

TEXTBOX里总字符长度是不是有限制?我用WebBrowser输出text但是每次都输出的本文不完整,
我这样写的:
Private Sub getcontent_DownloadComplete()'网页下载完后.
txtHTML.Text = WebBrowser1.Document.body.innerText
End SubPrivate Sub Command5_Click()'点击保存按钮If Text4.Text <> "" Then'路径框框
FileName = Replace(Text4.Text & "\" & text1.Text & ".txt", "\\", "\")
Else
FileName = Replace(App.Path & "\" & text1.Text & ".txt", "\\", "\")
End If
    Kill (FileName)
    Call writetxt(FileName)
End Sub'写入时声明
Sub writetxt(fname1)        Open fname1 For Append As #1                            
        Print #1, txtHTML.Text     '保存txtHTML中的内容 
        Close #1
        MsgBox "成功写入:" & vbnewline & " " & fname1 & "."
End Sub