Тригонометрическая функция: деление на ноль, если ничего не вводить в TextBox

Function ArcSin(X As Double) As Double
   ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
 
Private Sub Image2_Click()
 
Dim g, al, Hm As Double
Dim Vo As Variant
 
If g1(0).Text <> "" Then
 g = Val(g1(0).Text) 
End If
 If Vo1(1).Text <> "" Then
 Vo = Val(Vo1(1).Text) 
End If
If Hm(1).Text <> "" Then
 Hm = Val(Hm(1).Text) 
End If
 
If IsEmpty(al) Then
If Not IsEmpty(Hm) And Not IsEmpty(Vo) And Not IsEmpty(g) And ((2 * g * Hm) ^ (1 / 2)) / Vo < 1 Then
 al = ArcSin(((2 * g * Hm) ^ (1 / 2)) / Vo) * TO_DEG
 
al1.text = al
 
End Sub

On Error Resume Next

Dim g, al, Hm As Double

'На форме текстбоксы с именами: g1, Vo1, Hm1, al1 и рисунок Image2
 
Function ArcSin(X As Double) As Double 'результат в радианах
    If Abs(X) = 1 Then ArcSin = Sgn(X) * 3.14159265358979 / 2: Exit Function
    ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
 
Private Sub Image2_Click()
 
Const TO_DEG = 180 / 3.14159265358979
Dim g#, Vo#, Hm#, al#  'Double
 
g1.Text = Replace(g1.Text, ".", ",", , , vbTextCompare)
If IsNumeric(g1.Text) Then g = CDbl(g1.Text) Else: MsgBox "Введите g правильно!", , "": Exit Sub
If g < 0 Then MsgBox "Ошибка: g < 0!", , "": Exit Sub
 
Vo1.Text = Replace(Vo1.Text, ".", ",", , , vbTextCompare)
If IsNumeric(Vo1.Text) Then Vo = CDbl(Vo1.Text) Else: MsgBox "Введите Vo правильно!", , "": Exit Sub
If Vo = 0 Then MsgBox "Vo не должно быть нуль!", , "": Exit Sub
 
Hm1.Text = Replace(Hm1.Text, ".", ",", , , vbTextCompare)
If IsNumeric(Hm1.Text) Then Hm = CDbl(Hm1.Text) Else: MsgBox "Введите Hm правильно!", , "": Exit Sub
If Hm < 0 Then MsgBox "Ошибка: Hm < 0!", , "": Exit Sub
 
al = ((2 * g * Hm) ^ (1 / 2)) / Vo
If Abs(al) > 1 Then MsgBox "Модуль аргумента арксинуса > 1!" & vbCrLf & "Введите другие параметры", , "": Exit Sub
 
al = ArcSin(al) * TO_DEG 'результат в градусах
al1.Text = al
 
End Sub