Private Sub CmdIzracunaj_Click()
    Dim unos As Double
    Dim ceobroj As Integer
    Dim realanDeo As Double

    unos = TekstUnos.Text

    ceobroj = Int(unos)

    realanDeo = unos - ceobroj

    TekstReal.Text = realanDeo

    unos = Round(unos, 2)

    TekstZaokruzeno.Text = unos
End Sub