在窗体上画一个文本框，当窗体载入时，在D盘的hm目录下创建一个“dat.dat”的文件，每次按回车键时将文本框内容保存到文件中，如果输入字符的大写“END”，则将结束输入。关闭文件，结束程序。回车的ASCII的值为13。

希望哪为能给我解决一下这个题目
在这里先谢谢了
望回复！

Option Explicit

Private Sub Form_Load()
Dim strFileName As String
strFileName = App.Path & "dat.dat"

If Dir(strFileName) <> "" Then
Kill strFileName
Else
Open strFileName For Output As #1
Close
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If UCase(Text1.Text) = "END" Then
Unload Me
Else
Open App.Path & "\dat.dat" For Append As #1
Print #1, Text1.Text
Close
End If
End If
End Sub

  谢谢了

Private Sub Form_Load()
Open "d:\hm\dat.dat" For Append As #1
End Sub
Private Sub Text1_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
If UCase(Right$(Text1.Text, 3)) = "END" Then
Close
Unload Me
Else
Write #1, Text1.Text
End If
End If
End Sub

呵呵，参考你的。我自己的方法！
使程序简单些了！！！