Public Function compareArrays(ByVal a(,) As Double, ByVal b(,) As Double) _
      As Boolean
        For i = 0 To a.Rank - 1
            If a.GetUpperBound(i) <> b.GetUpperBound(i) Then Return False
        Next
 
        Dim iena As IEnumerator = CType(a, IEnumerable).GetEnumerator
        Dim ienb As IEnumerator = CType(b, IEnumerable).GetEnumerator
 
        While iena.MoveNext
            ienb.MoveNext()
            If iena.Current <> ienb.Current Then
                Return False
            End If
        End While
        Return True
    End Function

________
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