Add snippet and add snippet to rule

docs/fundamentals/code-analysis/quality-rules/ca2101.md

@@ -9,8 +9,9 @@ f1_keywords:
 helpviewer_keywords:
 - CA2101
 - SpecifyMarshalingForPInvokeStringArguments
-author: gewarren
-ms.author: gewarren
+dev_langs:
+- CSharp
+- VB
 ---
 # CA2101: Specify marshalling for P/Invoke string arguments
 
@@ -46,3 +47,5 @@ Do not suppress a warning from this rule.
 The following example shows a method that violates this rule, and then shows how to fix the violation.
 
 :::code language="csharp" source="snippets/csharp/all-rules/ca2101.cs" id="snippet1":::
+
+:::code language="vb" source="snippets/vb/all-rules/ca2101.vb" id="snippet2":::

docs/fundamentals/code-analysis/quality-rules/snippets/vb/all-rules/ca2101.vb

@@ -0,0 +1,18 @@
+Imports System
+Imports System.Runtime.InteropServices
+
+Namespace ca2101
+    '<snippet2>
+    Friend Class NativeMethods
+        ' Violates rule: SpecifyMarshalingForPInvokeStringArguments.
+        <DllImport("advapi32.dll", CharSet:=CharSet.Auto)>
+        Friend Shared Function RegCreateKey(ByVal key As IntPtr, ByVal subKey As String, <Out> ByRef result As IntPtr) As Integer
+        End Function
+
+        ' Satisfies rule: SpecifyMarshalingForPInvokeStringArguments.
+        <DllImport("advapi32.dll", CharSet:=CharSet.Unicode)>
+        Friend Shared Function RegCreateKey2(ByVal key As IntPtr, ByVal subKey As String, <Out> ByRef result As IntPtr) As Integer
+        End Function
+    End Class
+    '</snippet2>
+End Namespace