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