Private Sub generisi_Click()
Dim KorisnickiBr

KorisnickiBr = Me.KorisnickiBroj
If Format$(KorisnickiBr) <> "" Then
Me.AutorskiBroj = Kljuc(KorisnickiBroj)
End If
End Sub