VB6のテキストボックスに入力していると、途中で急に文字が消えてしまうのは何故?

質問

ＶＢ６で、テキストボックスを使ったツールを作ったのですが、起動して文字を入力していると、途中で急に入力した文字が消えてしまいます。
ただ入力を続けているだけなのに、何故でしょう?
文字数とかが関係しているのでしょうか?
そんなに文字数は入れてないんですが・・・。
どなたか教えてください!!　お願いします!!

回答No.6

haporun

文字が消えてしまうというのは、すべてですか?

これ以降の文は対象がText1であると仮定します。
編集メニューの検索で

"Text1.Text = "

という文字列を検索して、その付近のコードを調べてみましょう。

あと、Text1_Changeイベントに変なコードが入っていませんか?

消える文字が1文字とか数文字なら、KeyPress、KeyDown、KeyUpイベントも怪しいです。

>テキストボックスを使ったツール
できれば何をするツールなのか知りたいです。

ちなみにほかの方が語ってらっしゃる

Do Events

という文は

DoEvents

の間違いです。
単語を離してはいけません。

補足

文字が消えるのは、それまでにテキストボックスに入力した文全てです。ちなみに、ツールというのは日記帳です。
カレンダーの日付をクリックして、ラベルに日付を入れ、テキストボックスに内容を記入→保存ボタンで保存すると、次からはその日付をクリックするとテキストファイルを読み込んでテキストボックスに内容が表示される　というものです。
一番怪しいのは、この辺りだと思うのですが。

Dim day As String
Dim filename As String
Dim henkan As String
Dim henkan2 As String
Dim readdata As String
Dim readend As String
Dim filename2 As String
henkan = Form1.Label1.Caption
henkan2 = Replace(henkan, "/", "")
filename = "\" & henkan2 & ".txt"
filename2 = "\" & henkan2 & ".dat"
If Dir(App.Path & filename) = "" Then
Form1.Text1.Text = ""
Else
Open App.Path & "\" & filename For Input As #1
Do Until EOF(1)
Line Input #1, day
readdata = readdata & day & vbCrLf
Loop
readend = Replace(readdata, "", "")
Close #1
Form1.Text1.Text = readend
End If
End Sub

ちょっと変な感じですが、なにぶん初心者なもので・・・。
KeyPress、KeyDown、KeyUpイベントは使っていません。
それと、Text1_Changeイベントというのはどこにもないんですが、どういうものなんでしょうか？