Dim unbekannt As Object = New String() {"abc", "xyz"}
 
        Dim i1 As IEnumerable = TryCast(unbekannt, IEnumerable)
 
        If i1 IsNot Nothing Then
            Dim i2 As IEnumerator = i1.GetEnumerator()
            While i2.MoveNext
                Debug.WriteLine(i2.Current.ToString())
            End While
        End If

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov