gestione password con visual basic

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   5325
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7920
   OleObjectBlob   =   "chiave1.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub annulla_Click()
TextBox1.Text = ""
Label2.Caption = ""
TextBox1.SetFocus
End Sub

Private Sub avanti_Click()
Frame1.Visible = False
Call esegue
End Sub

Private Sub Conferma_Click()
avanti.Enabled = False
If TextBox1.Text = "marino" Then
Label2.Caption = "password accettata:clicca su avanti"
avanti.Enabled = True
avanti.SetFocus
Else
Label2.Caption = "password non accettata:riprova o rinuncia"
annulla.SetFocus
End If
End Sub

Public Sub esegue()
Label3.Caption = "prosegue il programma"
End Sub

Private Sub Frame1_Click()
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub