Function UlazniParametri(Par1 As Integer, Optional Par2 As Integer = 7) As Integer
UlazniParametri = Par1 + Par2
End Function