vb obslugabledow, SiMR, Programy Visual Basic

Public Class Form1


    Private Sub btnPLUS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPLUS.Click
        Dim A, B, W As Single
        Try ' programowa obsługa błędów zaczyna się po TRY
            A = CSng(txtA.Text)
            B = CSng(txtB.Text)
            W = A + B
            txtW.Text = CStr(W)
        Catch ex As Exception
            'MsgBox("Błąd danych")
            If Err.Number = 13 Then
                MsgBox("NALEZY WPISAC LICZBe", MsgBoxStyle.Critical, "Własna obsługa błędów")
            Else
                MsgBox(Err.Description)

            End If
        End Try
       

    End Sub

    Private Sub btnDZIEL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDZIEL.Click
        Dim A, B, W As Single
        Try
            A = CSng(txtA.Text)
            B = CSng(txtB.Text)
            If B = 0 Then
                MsgBox("nie dziel przez zero, cholero!")
            End If
            W = A / B
            txtW.Text = CStr(W)
        Catch ex As Exception
            MsgBox("Błąd danych")
        End Try
       
    End Sub
End Class