Sub kurs()
    'Deklaracije podataka
    Dim kursNBS As Integer
    Dim dinIznos As Integer
    Dim evrIznos As Integer
    
    'Unos podataka = Ulaz
    
     dinIznos = InputBox("Unesite dinarski iznos")
     kursNBS = InputBox("Unesite kurs Narodne Banke Srbije")
     
    
    'Obrada
    evrIznos = dinIznos / kursNBS
    
    'Izlaz
    MsgBox evrIznos
End Sub