Kontrolni broj JMBG/PIB u istom polju

Code:
Select Case Len(Me.txtJMBG) 'duzina unetih podataka pa ako je 9 proveravas PIB, ako je 13 proveravas jmbg, a ako je drugacije nije dobar podatak
    Case 9
        If ProveriPIB(txtJMBG) <> 0 Then
            MsgBox "PIB ne prolazi kontrolu"
            txtJMBG.SetFocus
        Else
            Dim str As String
            str = cmbOpstina2 & txtJMBG & cmbSlovo2.Column(1)
            txtKontrolni2 = Kontr(str)
        End If
    Case 13
        'zovi proveru jmbg

    Case Else
        MsgBox "Niste dobro uneli podatak"
        Me.txtJMBG.SetFocus
End Select

Code:

Function Proveri_JMBG(JMBG As String) As String
    '
    ' funkcija vraca tekst sa opisom ispravnosti JMBG
    '
    ' upotreba na radnom listu: =Proveri_JMBG(adr)
    
    ' init promenljive
    Dim duzina As Integer, zbir As Integer
    Dim cifra(1 To 13) As Integer, i As Integer
    Dim dan As Integer, mesec As Integer, Godina As String
    
    ' init konstante; izmeniti po volji
    Const ERR_dan = "GREŠKA: podatak o datumu neispravan!"
    Const ERR_mesec = "GREŠKA: podatak o mesecu neispravan!"
    Const ERR_godina = "GREŠKA: podatak o godini neispravan!"
    Const ERR_duzina = "GREŠKA: dužina različita od 13!"
    Const ERR_kont = "GREŠKA: neispravan kontrolni broj ili datum!"
    Const OK_JMBG = "-1"
    
    ' preuzimanje ulaznih vrednosti
    duzina = Len(JMBG)
    dan = Int(Left(JMBG, 2))
    mesec = Int(Mid$(JMBG, 3, 2))
    Godina = Mid$(JMBG, 5, 3)
    
    ' provera dužine JMBG
    If (duzina <> 13) Then
       Proveri_JMBG = ERR_duzina
       Exit Function
    End If
    
    ' provera datuma
    If dan < 1 Then
       Proveri_JMBG = ERR_dan
       Exit Function
    End If
    
    ' provera meseca i dana u mesecu
    Select Case mesec
       Case 1, 3, 5, 7, 8, 10, 12
          If dan > 31 Then
             Proveri_JMBG = ERR_dan
             Exit Function
          End If
       Case 4, 6, 9, 11
          If dan > 30 Then
             Proveri_JMBG = ERR_dan
             Exit Function
          End If
       Case 2
          If ((Godina Mod 4 = 0) And dan > 29) Or _
             ((Godina Mod 4 <> 0) And dan > 28) Then
               Proveri_JMBG = ERR_dan
               Exit Function
          End If
       Case Else
          Proveri_JMBG = ERR_mesec
          Exit Function
    End Select
    
    ' provera godine: ispravne su od 1899 do teku?e godine
    If (Godina > Right(str(Year(Now)), 3)) And (Godina < "899") Then
       Proveri_JMBG = ERR_godina
       Exit Function
    End If
    
    ' provera kontrolnog broja
    For i = 1 To 13
       cifra(i) = Int(Mid$(JMBG, i, 1))
    Next i
    
    zbir = cifra(13) + cifra(1) * 7 + cifra(2) * 6 + cifra(3) * 5 + cifra(4) * 4
    zbir = zbir + cifra(5) * 3 + cifra(6) * 2 + cifra(7) * 7 + cifra(8) * 6
    zbir = zbir + cifra(9) * 5 + cifra(10) * 4 + cifra(11) * 3 + cifra(12) * 2
    
    If (zbir Mod 11) <> 0 Then
       Proveri_JMBG = ERR_kont
    Else
       Proveri_JMBG = OK_JMBG
    End If

End Function