Sub Main()
    a = 3 
    b = 4 
    Call pifagor(a, b, c) 
    Call MsgBox(c) 
    Call MsgBox(fpifagor(a, b)) 
End Sub

Sub pifagor(x, y, z)
    z = Sqr(x * x + y * y) 
End Sub

Function fpifagor(x, y)
    fpifagor = Sqr(x * x + y * y) 
End Function