运行显示数据溢出该怎么解决

运行下面的，显示程序出现溢出错误，个符号变量均为 single型，烦劳各位指教。
For i = 1 To 11
B1(i) = (B1(i) / 180) * 3.14
L(i) = L0 - e1 * Tan(B1(i))
H(i) = h1 + h2 + L0 * (1 - Sin(B1(i))) - e1 * Cos(B1(i))
Next i

L1 = Sqr(2) * R1 * Sin(γ / 180 * 3.14)
L2 = Sqr(2) / 2 * Df
If L1 <= L2 Then
   Ls = 4 * L1
   A = L1 * L1
ElseIf L1 > L2 And L1 < Df Then
   L3 = 2 * L1 * Sqr(Df * Df - L1 * L1) / Df / Df
   Ls = Sqr(Df * Df - L1 * L1) * 4 + Df * 3.14 / 90 * (Atn(-L3 / Sqr(-L3 * L3 + 1)) + 2 * Atn(1))
   A = L1 * Sqr(Df * Df - L1 * L1) + Df * Df * 3.14 / 360 * (Atn(-L3 / Sqr(-L3 * L3 + 1)) + 2 * Atn(1))
Else
   Ls = Df * 3.14
   A = (Df * Df / 2) ^ 2 * 3.14
End If

  A0 = 3.14 * (2 * A / Ls - dk / 2) ^ 2
   C01 = Qk / ρk / A0
运行后调试，错误指向倒数第二句，各位帮我看看该如何解决。