Sub Beispiel(Of T)(ByVal ValueIN As T)
        Dim objValue As Object = Nothing
 
        'Aufruf der Routine welche in objValue das Array füllt.
 
        Dim iarr(10) As T
        iarr(5) = ValueIN
 
        objValue = iarr
 
        'Hier muss ich jetzt den objValue in ein normales Array vom Typ T 
        ' umwandeln.
        Dim el As T = DirectCast(objValue, T())(5)
 
    End Sub