求助，出现编译错误，必选参数

Private Sub Command1_Click()
Dim g!, a!, c!, n!, d!, e!, f!, l!, b!, q!, o!, s!, w!, m!, z!, k!, r!, p!, j!, i1, u!, v!, t!
  g = Text1
  a = Text2
  c = Text3
  n = Text4
  d = Text5
  e = Text6
  f = Text7
  l = Text8
  q = (1 - a / 100) * g / (1 - c / 100)
  w = 2 * 3.14 * n
  r = (e + f) / 2
  o = 2 * g / (2 * 3.14 * n) / (d ^ 2 - r ^ 2)
  p = 2 * q / (2 * 3.14 * n) / (d ^ 2 - r ^ 2)
  s = (o - p) / l
  m = -Log(1 - s * l / o) / s
  Text10 = q
  Text11 = w
  Text12 = o
  Text13 = s
  Text14 = m
End Sub
这是我还没编完的一个程序，想先计算这一部分看看效果，但是运行时出现必选参数的错误，n=Text4，变蓝了，貌似是这里出了问题，但是不知道怎么解决啊，求帮助。