VBA Error No Description Print-out

VBA

ErrorHandler:
    If Err() = 11 Then Resume
    Error Err()
  End Function

Error Number	Default Error Message
5	Procedure call or argument is not valid
6	Overflow
7	Out of memory
11	Division by zero
51	Internal error
52	Bad file name or number
53	File not found
55	File already open
76	Path not found
482	Printer error

VBA

On Error Resume Next
"Statement"
 
If Err.Number <> 0 Then 
" statements"
 
'''''''''''''''''''''
 
Imports System
Public Class MainClass
    Shared Sub Main(ByVal args As String())
        Dim I As Integer
        On Error Resume Next
        I = Value()
        Select Case Err.Number
            Case 0
            Case 11
                I = 100
            Case Else
                Console.WriteLine("Error X." & vbCrLf & Err.Description)
                Console.ReadLine()
                Exit Sub
        End Select
        Console.WriteLine("I = " & I)
        Console.ReadLine()
    End Sub
    Private Shared Function Value() As Integer
        Return 1 \ Integer.Parse("0")
    End Function
End Class