Создание пароля на проект

form2.show 1 'в ней вводим пароль
if пароль<>mypass then unload me

Text1.PasswordChar = "*"

Private Sub Text1_Click()
Text1 = ""
Text1.PasswordChar = "*"
End Sub

Private Sub Form_Load()
    'запись с добавлением в конец
    Open "c:/stufiii.txt" For append As #1
        Write #1, "Пароль"
    Close #1
    'Запись с
    Open "c:/stufiii.txt" For Output As #1
        Write #1, "Пароль"
    Close #1
    'Чтение
    Open "c:/stufiii.txt" For input As #1
        input #1, a
        'Вывод пароля
        print a
    Close #1
End Sub

Private Sub Form_Load()
'открываем текстовой файл
Open "D:\Macros.mac" For Input As #1
 'считываем файл
Dim s As String
s = Input(LOF(1), 1)
Dim StrTxt() As String
StrTxt = Split(s, vbCrLf)
'закрываем файл
Close #1
Text1.Text = StrTxt(2) '0 - это 1 строка
End Sub

Dim s As String
Dim StrTxt() As String
 
Private Sub Command1_Click()
'открываем текстовой файл
Open "D:\Macros.mac" For Input As #1
s = Input(LOF(1), 1)
StrTxt = Split(s, vbCrLf)
'закрываем файл
Close #1
Text1.Text = StrTxt(2) '0 - это 1 строка
StrTxt(2) = Text2.Text
'заменяем 3 строку на то что написано в тхт2
Open ("D:\Macros.mac") For Output As #1 'открываем файл
Print #1, Join(StrTxt, vbCrLf) 'Вписываем
Close #1 'Закрываем
End Sub