Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim t As Type = GetType([MyClass])
        Test(t)
    End Sub
    Public Sub Test(ByVal t As Type)
        Dim obj As [MyClass] = DirectCast(System.Activator.CreateInstance(t), _
          [MyClass])'// Instanz erstellen
        obj.DoSomething() '// Methode aufrufen
    End Sub
 
'// Die Bsp. Klasse
Class [MyClass]
    Inherits Object
    Public Sub New()
        MyBase.New()
    End Sub
    Public Sub DoSomething()
        MessageBox.Show(Me.GetType.FullName)
    End Sub
End Class