read file

[JSYChen]

請問各位前輩:
我想建一user在開啓該文件(.doc)能自動執行的macro,
功能為讀haha.txt的檔案內容(數字)+1後,
再將其值show在文件上的TextBox1...
以下的code是用vb寫的-能執行,
但在vba卻出現Text1.Text = Text1+1型態不符合,
因本人是第一次用vba,
能否請大家指點?謝謝!
------------------------------------------------
Private Sub Form_Load()
Dim StrTmp As String
F = FreeFile
Open "c:\haha.txt" For Input As #F
Do
Line Input #F, StrTmp
Text1.Text = Text1.Text & StrTmp & vbCrLf
Loop Until EOF(F)
Close #F
Text1.Text = Text1 + 1
End Sub

[samtyty]

在vba卻出現Text1.Text = Text1+1型態不符合
把text1的类型转换试一试，我没有过VBA，在VB中对于textbox中的数字是自动识别类型（文本或数字）的，