'Primer 7: Konverzija kursa (ugradjene i definisane konstante)
Sub kursKonst()
'Deklaracije podataka
    Const NBS_KURS As Double = 107
    Dim dinIznos As Double
    Dim evrIznos As Double
    Dim izbor As String
    Dim sPoruka As String

    sPoruka = "Izaberite konverziju: unesite" & vbNewLine
    sPoruka = sPoruka & vbTab & "D za (Dinari -> Evri)" & vbNewLine
    sPoruka = sPoruka & vbTab & "E za (Evri -> Dinari)"
    izbor = InputBox(sPoruka)
    If izbor = "D" Then
        'Unos podataka = Ulaz
        dinIznos = InputBox("Unesite dinarski iznos")
        'Obrada
        evrIznos = dinIznos / NBS_KURS
        'Izlaz

        sPoruka = "Dinari -> Evri" & vbNewLine
        sPoruka = sPoruka & "Kurs:" & vbTab & NBS_KURS & vbNewLine
        sPoruka = sPoruka & "Dinari: " & vbTab & Format(dinIznos, ".##") & vbNewLine
        sPoruka = sPoruka & "Evri: " & vbTab & Format(evrIznos, ".##")
    ElseIf izbor = "E" Then
        'Unos podataka = Ulaz
        evrIznos = InputBox("Unesite iznos u evrima")
        'Obrada
        dinIznos = evrIznos * NBS_KURS
        'Izlaz
        sPoruka = "Evri -> Dinari" & vbNewLine
        sPoruka = sPoruka & "Kurs:" & vbTab & NBS_KURS & vbNewLine
        sPoruka = sPoruka & "Evri: " & vbTab & Format(evrIznos, ".##") & vbNewLine
        sPoruka = sPoruka & "Dinari: " & vbTab & Format(dinIznos, ".##")
    Else
        MsgBox "Nepostojeca opcija"
        End
    End If
    MsgBox sPoruka
End Sub