Wie schreibe ich ein programm ...??

Dim password As String
Dim kryptpass As String
Dim lenght As String
Dim pwstart As String
Dim pwend As String
Dim pwcount As Integer
Dim lenght2 As String

Private Sub Form_Load()


pwcount = 5

Open "data" For Input As #1
Input #1, password
Close #1

If password = "rt39rtkein_pakein_pa13" Then
    MsgBox "Sicherheitslücke ! Kein Passwort gesetzt !", vbInformation, passwort
    Unload Me
    Projekt.Show
End If
End Sub

Private Sub cmdCancel_Click()
    End
End Sub

Private Sub cmdOK_Click()
   
If Count = 0 Then
    MsgBox "Zuviele Fehlversuche !!!", vbCritical
    End
    Else
   If Len(txtPassword) < 7 Then
   MsgBox "Falsche Eingabe", vbCritical
   End
   Else
    
    Open "data" For Input As #2
    Input #2, password
    Close #2

            pwstart = Mid(txtPassword, 1, Len(txtPassword) - 6)
            lenght = Len(txtPassword)
            pwend = Right(txtPassword, 2)
            lenght2 = lenght * 3
            kryptpass = pwend + lenght2 + pwend + pwstart + pwstart + lenght
    End If
End If
If kryptpass = password Then
    Unload Me
    Projekt.Show
        Else
            MsgBox "Ungültiges Kennwort. Bitte versuchen Sie es noch einmal!", , "Anmeldung"
            txtPassword.SetFocus
            pwcount = pwcount - 1
            SendKeys "{Home}+{End}"
    End If
End Sub

import os

eingabe = raw_input("Passwort eingeben: ");

if eingabe.rstrip('\n') == '1234':
    os.system("notepad")
else:
    print "failed!"