VB 求二元一次方程的根 最后算出来的数不对

Private Sub Command1_Click()
   Dim a%, b%, c%, dt%, x1!, x2!
   a = Val(Text1.Text)
  b = Val(Text2.Text)
  c = Val(Text3.Text)
   'FOUND
dt =bb-4ac  
If (dt > 0) Then
   'FOUND
      x1 =-b+sqr（dt）/（2a ）
   'FOUND
x2 =-b-sqr（dt）/（2*a）
      Print "两个根是：", x1, x2
   Else
      Print "方程无根"
   End If  
End Sub

*是有的没打出来