VB.Net Tutorial/Data Type/Boxing unboxing

Boxing and unboxing Integer

Option Strict On
 Imports System
 Public Class UnboxingTest
     Public Shared Sub Main( )
         Dim myIntegerVariable As Integer = 123
         " Boxing
         Dim myObjectVariable As Object = myIntegerVariable
         Console.WriteLine("myObjectVariable: {0}",myObjectVariable.ToString( ))
         " unboxing (must be explicit)
         Dim anotherIntegerVariable As Integer = DirectCast(myObjectVariable, Integer)
         Console.WriteLine("anotherIntegerVariable: {0}",anotherIntegerVariable)
     End Sub
 End Class

myObjectVariable: 123
anotherIntegerVariable: 123