Dim o As Object = New String() {"aa", "bb"}
 
        For Each s As String In o
            Debug.WriteLine(s)
        Next

        If TypeOf o Is String() Then
            Dim sa() As String = CType(o, String())
 
            For Each s As String In sa
                Debug.WriteLine(s)
            Next
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist