سؤال حول التعامل مع الملفات

يا ريت تشوفوا الكود وبعدين تقراوا السؤال:

Private Sub Command1_Click()
' check if the pw is correct
If Text1.Text = "G.W.Bush=Owned" Then
' open sesame hehe
Unload Me
' ops if its not correct
Else
' log the invaild pw for more security
Dim win As String
win = Environ("c:")
Open win & "/xprotect.txt" For Output As #1
Print #1, (Text1.Text)
Close #1
Call SetAttr("c:xprotect.txt", vbHidden)
End If
End Sub

سؤالي الان كيف يمكنني جعل البرنامج يقوم بحفظ كلمات السر الممدخلة جميعها يعني

جربت كلمة سر arabteam اكيد غلط وتم حفظها جربت كلمة سر اخرى هي arab غلط يتم حفظها لكن فوق السابقة ولكن اريد من البرنامج ان يقوم بحفظ الكلمات كلها يعني اذا بدخله بلاقي

arabteam

arab

الخ

ارجو الا يكون الامر صعب

وشكرا (f)(f)