Sub kursRealni()
 Dim dDinari As Double 'iznos u dinarima
 Dim dEvri As Double 'iznos u evrima
 Dim dKursNBS As Double 'kurs Narodne Banke Srbije
 Dim sPoruka As String
 
 dKursNBS = InputBox("Unesite kurs Narodne Banke Srbije")
 dDinari = InputBox("Unesite iznos u dinarima")
 
 dEvri = dDinari / dKursNBS
 
 
 sPoruka = Format(dEvri, ".##")
 sPoruka = "Iznos u evrima (Format .##):" & sPoruka
 MsgBox sPoruka
 
 sPoruka = Format(dEvri, ".00")
 sPoruka = "Iznos u evrima (Format .00):" & sPoruka
 MsgBox sPoruka
End Sub