za kolegu

Private Sub cmdRacunaj_Click()
    Dim unos As String
    Dim broj As Single
    Dim realnideo As Single
    Dim ceobroj As Integer
    unos = InputBox("Unesi realan broj sa dve decimale.")
    broj = Val(unos)
    If unos = "" Then 'Provera da li je uneo bilo sta u textbox
        MsgBox ("Unesi broj, ne pokusavaj nista drugo!")
        Exit Sub 'Prekid rada procedure, pokusaj ponovo...
    End If

    ceobroj = Int(broj) 'Uzimam samo celi deo broja(radi zaokruzivanje na manji ceo broj)
    realnideo = broj - ceobroj 'Oduzimam od unetog broja celi deo broja da bih dobio ono posle zareza(realni deo)

    txtRealniDeo.Text = Format(realnideo, "0.00")
    txtZaokruzeno.Text = Format(unos, "0.0")
End Sub