코딩질문이요..

Private Sub condition()
fck = Val(Text1.Text)
If fck 21 Then MsgBox 기준압축강도의 범위는 21부터 42까지 입니다.: Exit Sub
If fck 42 Then MsgBox 기준압축강도의 범위는 21부터 42까지 입니다.: Exit Sub
b0 = Val(Text2.Text)
If b0 300 Then MsgBox 폭은 300보다 커야합니다: Exit Sub
h0 = Val(Text3.Text)
If ho b0 Then MsgBox 높이는 폭보다 커야 합니다: Exit Sub
AsAg = Val(Text4.Text)
If AsAg 0.005 Then MsgBox 단면비의 범위는 0.005부터 0.05까지 입니다.: Exit Sub
If AsAg 0.05 Then MsgBox 단면비의 범위는 0.005부터 0.05까지 입니다.: Exit SubEnd Sub
Private Sub calculate() Call condition
Ag = pi / 4 * b0 * h0
C0 = 0.85 * fck * b0 * ho
Beta1 = 0.85 - 0.05 * (fck - 28) / 7
If Beta1 0.85 Then Beta1 = 0.85
If Beta1 0.65 Then Beta1 = 0.65
Ass = AsAg * Ag
deep = h0 - Ycover
abar = c1 * Beta1 * deep / h0
End Sub이렇게 코딩하고 pi랑 나머지 변수도 다 정해줬구요...근데 왜 값이 계속 0 이 나올까요??? 답변좀부탁드립니다.