Add vb test

src/EditorFeatures/Test2/FindReferences/FindReferencesTests.OrdinaryMethodSymbols.vb

@@ -3259,7 +3259,7 @@ End Class
         End Function
 
         <WpfTheory, CombinatorialData, Trait(Traits.Feature, Traits.Features.FindReferences)>
-        Public Async Function TestOrdinaryMethodWithMissingReferences(kind As TestKind, host As TestHost) As Task
+        Public Async Function TestOrdinaryMethodWithMissingReferences_CSharp(kind As TestKind, host As TestHost) As Task
             Dim input =
 <Workspace>
     <Project Language="C#" CommonReferences="false">
@@ -3277,6 +3277,28 @@ End Class
         }
         </Document>
     </Project>
+</Workspace>
+            Await TestAPIAndFeature(input, kind, host)
+        End Function
+
+        <WpfTheory, CombinatorialData, Trait(Traits.Feature, Traits.Features.FindReferences)>
+        Public Async Function TestOrdinaryMethodWithMissingReferences_VB(kind As TestKind, host As TestHost) As Task
+            Dim input =
+<Workspace>
+    <Project Language="Visual Basic" CommonReferences="false">
+        <Document>
+        class C
+            ' string will be an error type because we have no actual references.
+            private sub {|Definition:Goo|}(s as string)
+            end sub
+
+            sub Bar()
+                [|Go$$o|]("")
+                [|Goo|](s)
+            end sub
+        end class
+        </Document>
+    </Project>
 </Workspace>
             Await TestAPIAndFeature(input, kind, host)
         End Function