VBA 代码控制只能输入浮点数

Public Sub EditInterval_KeyPress(KeyAscii As Integer)
 If ((KeyAscii >= 48) And (KeyAscii <= 57)) Or (KeyAscii = 46) Or (KeyAscii = 8) Then

    Else
  KeyAscii = 0
     Exit Sub

 End If
End Sub

Public Sub EditWarning_Click()

End Sub

Public Sub EditWarning_KeyPress(KeyAscii As Integer)
 If ((KeyAscii >= 48) And (KeyAscii <= 57)) Or (KeyAscii = 46) Or (KeyAscii = 8) Then

    Else
  KeyAscii = 0
     Exit Sub

 End If

End Sub