مشكلة Byref في الفيجوال بيسك

Dim c
Option Explicit
Private Sub main()
Dim a, b As Integer
a = 12
b = 10
c = "19"
Print "Before calling: a="; a; "b="; b
Call calculate(a, b, c)
Print "After calling: a="; a;; "b="; b
End Sub
Private Sub calculate(ByRef a As Integer, ByRef b As Integer, Optional c)
Print "A="; a; "b="; b
a = a + b + 8 + c
b = b ^ 2 + 20
Print "a="; a; "b="; b
End Sub

Private Sub Command1_Click()
Call main
End Sub

ارجو منكم مساعدتي في حل هذا السؤال .. لقد جربت البرنامج مراراً وتكراراً وواجهتني مشكلة من ناحية استخدام Byref للمتغير a فعندها لا يعمل البرنامج .. ارجو توضيح ما سبب المشكلة ؟

وارجو منكم توضيح لماذا استخدم الأمر Optional في الاجراء Calculate ؟