Function Dijeljenje()
Dim a, b, c, d
a = 10
b = 3
c = a / 3
MsgBox "10/3=" & c
d = a \ b
MsgBox "10\3=" & d
End Function