Attribute VB_Name = "ModulUsername"
Public Function ZnakBezDiakritiky(Znak As String) As String

        If (Asc(Znak) >= 97 And Asc(Znak) <= 122) Or (Asc(Znak) >= 48 And Asc(Znak) <= 57) Then
        ZnakBezDiakritiky = Znak
        Else
            ZnakBezDiakritiky = Switch( _
            Znak = "á", "a", _
            Znak = "é", "e", _
            Znak = "í", "i", _
            Znak = "ó", "o", _
            Znak = "ú", "u", _
            Znak = "ů", "u", _
            Znak = "ý", "y", _
            Znak = "ř", "r", _
            Znak = "š", "s", _
            Znak = "č", "c", _
            Znak = "ž", "z", _
            Znak = "ď", "d", _
            Znak = "", "t", _
            Znak = "ň", "n", _
            Znak = "ě", "e", _
            Znak = "ž", "l", _
            Znak = "ö", "o", _
            Znak = "ű", "u", _
            Znak = "ü", "u", _
            Znak = ".", ".", _
            Znak = "-", "-", _
            Znak = "_", "_", _
            Znak = " ", " ")
        End If
End Function
Public Function BezDiakritiky(Řetězec As String) As String

    Dim PoleZnaků() As String
    Dim PočetZnaků As Integer
    Dim I As Integer
    
    PočetZnaků = Len(Řetězec)
    BezDiakritiky = ""
    ReDim PoleZnaků(0 To PočetZnaků)
        For I = 1 To PočetZnaků
            PoleZnaků(I) = Mid$(Řetězec, I, 1)
            PoleZnaků(I) = ZnakBezDiakritiky(PoleZnaků(I))
            BezDiakritiky = BezDiakritiky & PoleZnaků(I)
        Next
End Function
Public Function Username(Příjmení As String, Jméno As String) As String
    
    Dim Jmeno$
    Dim Prijmeni$
    
    Jmeno$ = BezDiakritiky(LCase$(Jméno))
    Prijmeni$ = BezDiakritiky(LCase$(Příjmení))
    
    If Len(Username) > 20 Then
            Username = Prijmeni$ & "." & Left$(Jmeno$, 1)
        Else
            Username = Prijmeni$ & "." & Jmeno$
    End If
    
End Function