Pomoc oko prikazivanja i ispisa podataka

Code:

Private Sub JMBG_Exit(Cancel As Integer)  ' Kontrola po modulu 11
    Dim A    As Integer
    Dim B    As Integer
    Dim C    As Integer
    Dim D    As Integer
    Dim E    As Integer
    Dim F    As Integer
    Dim G    As Integer
    Dim H    As Integer
    Dim I    As Integer
    Dim J    As Integer
    Dim K    As Integer
    Dim L    As Integer
    Dim M    As Integer
    Dim zzz    As Integer
    Dim ost   As Integer
    Dim celobroj As Integer
    Dim raz   As Integer
    Dim niz   As String
    
   
    
    If IsNull([JMBG]) Then
       Exit Sub
    End If
    If Len(CStr([JMBG])) <> 13 Then
       MsgBox "Maticni broj mora imati 13 cifara"
       Cancel = True
       Me![JMBG].SetFocus
       Exit Sub
    End If
    
    M = Right(JMBG, 1)   '  zadnja cifra je kontrolni broj i sa njom se uporedjuje rezultat
    A = Left(JMBG, 1)
    B = Mid(JMBG, 2, 1)
    C = Mid(JMBG, 3, 1)
    D = Mid(JMBG, 4, 1)
    E = Mid(JMBG, 5, 1)
    F = Mid(JMBG, 6, 1)
    G = Mid(JMBG, 7, 1)
    H = Mid(JMBG, 8, 1)
    I = Mid(JMBG, 9, 1)
    J = Mid(JMBG, 10, 1)
    K = Mid(JMBG, 11, 1)
    L = Mid(JMBG, 12, 1)
    
    zzz = (7 * A) + (6 * B) + (5 * C) + (4 * D) + (3 * E) + (2 * F) + (7 * G) + (6 * H) + (5 * I) + (4 * J) + (3 * K) + (2 * L)
     
     
     niz = CStr(Round(zzz / 11, 2))
     If Len(niz) = 2 Then  ' Deljenje bez ostatka ili Ostatak je 0
        ost = 0
        MsgBox "Maticni broj je ispravan", vbInformation, "Obavestenje"
        Exit Sub
     Else
        celobroj = Val(Left(niz, 2))
        ost = zzz - (11 * celobroj)
     End If
        
     If ost = 1 Then
        MsgBox "Ne valja JMBG", vbCritical, "Paznja"
        Exit Sub
     End If
     
     raz = 11 - ost
     If M = raz Then
         MsgBox "Maticni broj je ispravan", vbInformation, "Obavestenje"
     Else
         MsgBox "Ne valja JMBG", vbCritical, "Paznja"
     End If

End Sub