Reflection VB.Net

Imports System
Imports System.Reflection
Public Class Example
    Public Shared Sub Main()
        Dim e As New Example()
        Console.WriteLine()
        e.MethodBodyExample("String argument")
        e.MethodBodyExample(Nothing)
        Dim mi As MethodInfo = GetType(Example).GetMethod("MethodBodyExample")
        Dim mb As MethodBody = mi.GetMethodBody()
        Console.WriteLine(mi)
        Console.WriteLine(mb.InitLocals)
        Console.WriteLine(mb.MaxStackSize)
        
        For Each lvi As LocalVariableInfo In mb.LocalVariables
            Console.WriteLine("Local variable: {0}", lvi)
        Next
    End Sub
    Public Sub MethodBodyExample(ByVal arg As Object)
        Dim var1 As Integer = 42
        Dim var2 As String = "Forty-two"
    End Sub
End Class