BayLoi_Test01.bas

Sub BayLoi_Test01()
Dim a As Long, b As Long
    a = Sheet1.Cells(1, 1).Value
    b = Sheet1.Cells(2, 1).Value

On Error GoTo Loi
Sheet1.Cells(3, 1).Value = a / b
MsgBox "ok!"

Loi:
    If Err.Number = 11 Then
        MsgBox "Loi chia cho 0"
    End If
    
End Sub