Exceptions V2 Learn programming Visual Basic (VB.net)

Imports System
Public Class exercise71
    Public Shared Sub Main()
        Dim result As Single
        Dim num As Single
        Console.Write("Enter Number ")

        Try
            num = Convert.ToSingle(Console.ReadLine())
            result = CSng(Math.Sqrt(num))
            Console.WriteLine("The result is: {0}", result)
        Catch __unusedException1__ As Exception
            Console.WriteLine("Error, I cannot calculate the Square Root")
        End Try
    End Sub
End Class