Tratando erros

Public Class TryCache

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim aNumber As Double = CDbl(TextBox1.Text)

            MsgBox("Você digitou o número " & aNumber)

        Catch

            MsgBox("Por favor insira um número.")

        Finally

            MsgBox("Por que não tentar de novo?")

        End Try

    End Sub

End Class

************************************************

Nesta lição, você aprendeu a usar blocos Try...Catch...Finally para criar uma estrutura básica de tratamento de erros