Private Function KontrolaPSC()
    Dim psc As String

    psc = Sheets("Pomocný").Range("H2").Value
    If psc = "0" Then
        MsgBox "PSČ musí být vyplněno!"
        KontrolaPSC = False
    Else
        If IsNumeric(psc) Then
            If Len(psc) = 5 Then
                KontrolaPSC = True
            Else
                MsgBox "PSČ musí mít 5 znaků!"
                KontrolaPSC = False
            End If
        Else
            MsgBox "Nezadali jste číslo!"
            KontrolaCislaPopisneho = False
        End If
    End If
End Function