diff --git a/src/SpecExpectation.cls b/src/SpecExpectation.cls
index 3f58548..bf01503 100644
--- a/src/SpecExpectation.cls
+++ b/src/SpecExpectation.cls
@@ -47,6 +47,18 @@ Public Sub ToNotEqual(Expected As Variant)
 End Sub
 
 Private Function IsEqual(Actual As Variant, Expected As Variant) As Variant
+  Dim l_count     As Long
+    
+    If IsArray(Expected) Then
+        If UBound(Expected) <> UBound(Actual) Then IsEqual = False: Exit Function
+        
+        For l_count = LBound(Expected) To UBound(Expected)
+            If Not Expected(l_count) = Actual(l_count) Then IsEqual = False: Exit Function
+        Next l_count
+    
+        IsEqual = True
+    End If
+
     If IsError(Actual) Or IsError(Expected) Then
         IsEqual = False
     ElseIf IsObject(Actual) Or IsObject(Expected) Then