Как "обойти" деление на ноль - VB

Формулировка задачи:

Всем доброго времени суток. Хотел попросить помощи при решении следующей задачи. Вводимые значения в ТекстБоксы, а именно во 2-ом и 3-ем используются в дальнейшем в знаменателе. Ну и вылетает ошибка при делении на ноль. Как можно обойти эту проблему? Только через <If>?

                    Листинг программы
                
 
                            
                        
'Г*Г* ГґГ®Г°Г¬ГҐ 3 TextBox ГЁ 1 Label
Option Explicit
Dim b As Double
Dim l As Double
Dim a As Double
Dim b_c As Double
'Г‚Г‚ГЋГ„ Г‚ Г’Г…ГЉГ‘Г’_1 Г’ГЋГ‹ГњГЉГЋ Г—Г€Г‘Г…Г‹ Г€ Г‡ГЂГЏГџГ’ГЋГ‰
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
      Case 48 To 57, 8  ' Г¶ГЁГґГ°Г» ГЁ  <Backspace>
      Case 44, 46       ' ГІГ®Г·ГЄГ* ГЁ Г§Г*ГЇГїГІГ*Гї
         KeyAscii = 46
         ' Г*ГҐ ГЇГ®Г§ГўГ®Г«ГїГҐГІ ГўГўГ®Г¤ГЁГІГј Г§Г*Г*ГЄ Г§Г*ГЇГїГІГ®Г© ГЇГ®ГўГІГ®Г°Г*Г®
         If InStr(Text1.Text, ".") <> 0 Then
            KeyAscii = 0
         End If
      Case Else
         KeyAscii = MsgBox("Г‚ГўГ®Г¤ГЁГІГј ГІГ®Г«ГјГЄГ® Г·ГЁГ±Г«Г* ГЁ ГІГ®Г·ГЄГі")   ' Г®ГІГ*Г«ГјГ*Г»ГҐ Г±ГЁГ¬ГўГ®Г«Г» Г*ГҐ Г®ГІГ®ГЎГ°Г*Г¦Г*ГѕГІГ±Гї ГўГ»ГўГ®Г¤ГЁГІГ±Гї Г±Г®Г®ГЎГ№ГҐГ*ГЁГҐ
   End Select
End Sub
'Г‚Г‚ГЋГ„ Г‚ Г’Г…ГЉГ‘Г’_2 Г’ГЋГ‹ГњГЉГЋ Г—Г€Г‘Г…Г‹ Г€ Г‡ГЂГЏГџГ’ГЋГ‰
Private Sub Text2_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 48 To 57, 8  ' Г¶ГЁГґГ°Г» ГЁ  <Backspace>
      Case 44, 46       ' ГІГ®Г·ГЄГ* ГЁ Г§Г*ГЇГїГІГ*Гї
         KeyAscii = 46
         ' Г*ГҐ ГЇГ®Г§ГўГ®Г«ГїГҐГІ ГўГўГ®Г¤ГЁГІГј Г§Г*Г*ГЄ Г§Г*ГЇГїГІГ®Г© ГЇГ®ГўГІГ®Г°Г*Г®
         If InStr(Text2.Text, ".") <> 0 Then
            KeyAscii = 0
         End If
      Case Else
         KeyAscii = MsgBox("Г‚ГўГ®Г¤ГЁГІГј ГІГ®Г«ГјГЄГ® Г·ГЁГ±Г«Г* ГЁ ГІГ®Г·ГЄГі")   ' Г®ГІГ*Г«ГјГ*Г»ГҐ Г±ГЁГ¬ГўГ®Г«Г» Г*ГҐ Г®ГІГ®ГЎГ°Г*Г¦Г*ГѕГІГ±Гї ГўГ»ГўГ®Г¤ГЁГІГ±Гї Г±Г®Г®ГЎГ№ГҐГ*ГЁГҐ
   End Select
End Sub
'Г‚Г‚ГЋГ„ Г‚ Г’Г…ГЉГ‘Г’_3 Г’ГЋГ‹ГњГЉГЋ Г—Г€Г‘Г…Г‹ Г€ Г‡ГЂГЏГџГ’ГЋГ‰
Private Sub Text3_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 48 To 57, 8  ' Г¶ГЁГґГ°Г» ГЁ  <Backspace>
      Case 44, 46       ' ГІГ®Г·ГЄГ* ГЁ Г§Г*ГЇГїГІГ*Гї
         KeyAscii = 46
         ' Г*ГҐ ГЇГ®Г§ГўГ®Г«ГїГҐГІ ГўГўГ®Г¤ГЁГІГј Г§Г*Г*ГЄ Г§Г*ГЇГїГІГ®Г© ГЇГ®ГўГІГ®Г°Г*Г®
         If InStr(Text3.Text, ".") <> 0 Then
            KeyAscii = 0
         End If
      Case Else
         KeyAscii = MsgBox("Г‚ГўГ®Г¤ГЁГІГј ГІГ®Г«ГјГЄГ® Г·ГЁГ±Г«Г* ГЁ ГІГ®Г·ГЄГі")   ' Г®ГІГ*Г«ГјГ*Г»ГҐ Г±ГЁГ¬ГўГ®Г«Г» Г*ГҐ Г®ГІГ®ГЎГ°Г*Г¦Г*ГѕГІГ±Гї ГўГ»ГўГ®Г¤ГЁГІГ±Гї Г±Г®Г®ГЎГ№ГҐГ*ГЁГҐ
   End Select
End Sub
Private Sub Text1_Change()
b = Val(Text1.Text)
dav
End Sub
Private Sub Text2_Change()
l = Val(Text2.Text)
dav
End Sub
Private Sub Text3_Change()
a = Val(Text3.Text)
dav
End Sub
Private Sub dav()
    b_c = Round(3 * (b / l + 1 / a), 3)
    Label1.Caption = b_c
End Sub

Буду также признателен за различного рода советы. Всем откликнувшимся огромное спасибо!

Решение задачи: «Как "обойти" деление на ноль»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub dav()
if ((l = 0) or (a = 0)) then
    Label1.Caption = "Ошибка"
  else
    Label1.Caption = Round(3 * (b / l + 1 / a), 3)
end if
End Sub