Function Izracun(a As Integer, b As Integer, Optional c As Integer = 3)
If c = 1 Then
Izracun = a + b
ElseIf c = 2 Then
Izracun = a * b
Else
Izracun = (a + b) + (a * b)
a = a + b
b = a * b
c = 100
End If
End Function
Sub PozivR()
Dim X As Integer, Y As Integer, Z As Integer, V As Integer

X = 2
Y = 3
Z = 1
V = Izracun(X, Y, Z)
MsgBox "V=" & V & vbCr & "X=" & X & vbCr & "Y=" & Y & vbCr & "Z=" & Z
'vbcr je prelazak u novi red

End Sub