diff --git a/tests/NSubstitute.Analyzers.Tests.VisualBasic/DiagnosticAnalyzersTests/NonSubstitutableMemberReceivedInOrderAnalyzerTests/NonSubstitutableMemberReceivedInOrderDiagnosticVerifier.cs b/tests/NSubstitute.Analyzers.Tests.VisualBasic/DiagnosticAnalyzersTests/NonSubstitutableMemberReceivedInOrderAnalyzerTests/NonSubstitutableMemberReceivedInOrderDiagnosticVerifier.cs
index 2c6e34fd..01275004 100644
--- a/tests/NSubstitute.Analyzers.Tests.VisualBasic/DiagnosticAnalyzersTests/NonSubstitutableMemberReceivedInOrderAnalyzerTests/NonSubstitutableMemberReceivedInOrderDiagnosticVerifier.cs
+++ b/tests/NSubstitute.Analyzers.Tests.VisualBasic/DiagnosticAnalyzersTests/NonSubstitutableMemberReceivedInOrderAnalyzerTests/NonSubstitutableMemberReceivedInOrderDiagnosticVerifier.cs
@@ -56,6 +56,7 @@ Public Sub Test()
                                  [|substitute.Bar()|]
                              End Function)
             NSubstitute.Received.InOrder(Function() [|substitute.Bar()|])
+            NSubstitute.Received.InOrder(Async Function() Await [|otherSubstitute.Bar()|])
             NSubstitute.Received.InOrder(Sub() [|substitute.Bar()|])
             NSubstitute.Received.InOrder(Function()
                                  [|substitute.Nested.Bar()|]
@@ -109,6 +110,10 @@ Public Sub Test()
                                  Await [|otherSubstitute.Bar()|]
                                  Dim y = Await [|otherSubstitute.Bar()|]
                              End Function)
+            NSubstitute.Received.InOrder(Async Function()
+                                 Await [|otherSubstitute.Bar()|]
+                                 Dim y = Await [|otherSubstitute.Bar()|]
+                             End Function)
         End Sub
     End Class
 End Namespace";
@@ -392,6 +397,9 @@ Public Sub Test()
             NSubstitute.Received.InOrder(Async Function()
                                              Dim x = substitute.Bar(Await otherSubstitute.Bar())
                                          End Function)
+            NSubstitute.Received.InOrder(Async Function()
+                                             Dim x = substitute.Bar(Await otherSubstitute.Bar())
+                                         End Function)
         End Sub
     End Class
 End Namespace