VB 6.0 chyba

 'da veci do premennych
 login = InputBox("Zadajte prihlasovacie heno", "Login")
 pass = InputBox("Zadajte heslo", "Password")
 
 meno = frm1.Text3.Text
 priezvisko = frm1.Text4.Text
 email = frm1.Text5.Text
 telefon = frm1.Text6.Text
 ucet = frm1.Text7.Text
 adresa = frm1.Text8.Text
 
 'vytvori dlhe čiselne heslo v premennej
 hesloa = login
 heslob = pass
 dlzkaheslaa = Len(hesloa)
 For i = 1 To dlzkaheslaa
   heslo = heslo & Asc(Mid(hesloa, i, 1))
 Next i
 dlzkaheslab = Len(heslob)
 For i = 1 To dlzkaheslab
   heslo = heslo & Asc(Mid(heslob, i, 1))
 Next i
 
 heslocislo = heslo
 
 'vyčistenie premennych
 hesloa = ""
 heslob = ""
 dlzkaheslaa = ""
 dlzkaheslab = ""
 
 'sifrovanie mena
 retazec = meno
 dlzkaretazca = Len(retazec)
 dlzkahesla = Len(heslo)
 For i = 1 To dlzkaretazca
  If a = dlzkahesla Then a = 0
  a = a + 1
  kriptor = Mid(heslocislo, a, 1)
  pismeno = Mid(retazec, i, 1)
  pismenox = (Asc(pismeno)) + kriptor
  pismenoy = pismenox Xor heslocislo
  celytext = celytext & "#" & pismenoy
 Next i
 
 menox = celytext

Private Sub cmm3_Click()
 ulozit
End Sub

Private Sub cmm5_Click()
 If MsgBox("Ste si isty že chcete vyčistit udaje????", vbYesNo + vbExclamation, _
 "Vyčistenie") = vbYes Then
  For Each objekty In frm1.Controls
   If objekty.Tag = "vycistit" Then
    objekty.Text = ""
   End If
  Next objekty
 End If
End Sub

Private Sub cmm6_Click()
 koniec
End Sub

Private Sub mnuinfo_Click()
 info
End Sub

Private Sub mnukoniec_Click()
 koniec
End Sub

Public login As String
Public pass As String
Public meno As String
Public priezvisko As String
Public email As String
Public telefon As String
Public ucet As String
Public adresa As String

Public loginx As String
Public passx As String
Public menox As String
Public priezviskox As String
Public emailx As String
Public telefonx As String
Public ucetx As String
Public addresax As String

Public retazec As String
Public heslo As String
Public heslocislo As Double
Public hesloa As String
Public heslob As String
Public dlzkaretazca As String
Public dlzkahesla As String
Public dlzkaheslaa As String
Public dlzkaheslab As String
Public vyslednytext As String
Public pismeno As String
Public pismenox As Long
Public pismenoy As Long
Public kriptor As String
Public a As Long

Sub main()
 Load frm1
 frm1.Show
End Sub

Sub info()
 MsgBox ("Súkromné informácie 1.0" & Chr(13) & Chr(10) & _
 "Dátum vydania: ???" & Chr(13) & Chr(10) & "Hlavný programátor: Wpegb" & _
 Chr(13) & Chr(10) & ":D :D :D :D")
End Sub

Sub koniec()
 If MsgBox("Ste si isty že chcete ukončit program???? Všetky neuložené dáta budú stratené", _
 vbYesNo + vbExclamation, "Koniec") = vbYes Then End
End Sub

Sub ulozit()
 'da veci do premennych
 login = InputBox("Zadajte prihlasovacie heno", "Login")
 pass = InputBox("Zadajte heslo", "Password")
 
 meno = frm1.Text3.Text
 priezvisko = frm1.Text4.Text
 email = frm1.Text5.Text
 telefon = frm1.Text6.Text
 ucet = frm1.Text7.Text
 adresa = frm1.Text8.Text
 
 'vytvori dlhe čiselne heslo v premennej
 hesloa = login
 heslob = pass
 dlzkaheslaa = Len(hesloa)
 For i = 1 To dlzkaheslaa
   heslo = heslo & Asc(Mid(hesloa, i, 1))
 Next i
 dlzkaheslab = Len(heslob)
 For i = 1 To dlzkaheslab
   heslo = heslo & Asc(Mid(heslob, i, 1))
 Next i
 
 heslocislo = heslo
 
 'vyčistenie premennych
 hesloa = ""
 heslob = ""
 dlzkaheslaa = ""
 dlzkaheslab = ""
 
 'sifrovanie mena
 retazec = meno
 dlzkaretazca = Len(retazec)
 dlzkahesla = Len(heslo)
 For i = 1 To dlzkaretazca
  If a = dlzkahesla Then a = 0
  a = a + 1
  kriptor = Mid(heslocislo, a, 1)
  pismeno = Mid(retazec, i, 1)
  pismenox = (Asc(pismeno)) + kriptor
  pismenoy = pismenox Xor heslocislo
  celytext = celytext & "#" & pismenoy
 Next i
 
 menox = celytext
 
End Sub