Create rule S3063: Add vbnet language

rules/S3063/csharp/rule.adoc

@@ -1,16 +1,49 @@
-include::../rule.adoc[]
+`StringBuilder` instances that are not accessed through a `ToString()` invocation needlessly clutter the code, and worse are a drag on performance. Either they should be removed, or the missing `ToString()` call should be added.
 
-ifdef::env-github,rspecator-view[]
+== Noncompliant Code Example
 
-'''
-== Implementation Specification
-(visible only on this page)
+[source,csharp]
+----
+public void DoSomething(List<string> strings) {
+  var sb = new StringBuilder();  // Noncompliant
+  sb.Append("Got: ");
+  foreach(var str in strings) {
+    sb.Append(str).Append(", ");
+    // ...
+  }
+}
+----
 
-include::../message.adoc[]
+== Compliant Solution
 
-'''
-== Comments And Links
-(visible only on this page)
+[source,csharp]
+----
+public void DoSomething(List<string> strings) {
+  foreach(var str in strings) {
+    // ...
+  }
+}
+----
+or
+[source,csharp]
+----
+public void DoSomething(List<string> strings) {
+  var sb = new StringBuilder();
+  sb.Append("Got: ");
+  foreach(var str in strings) {
+    sb.Append(str).Append(", ");
+    // ...
+  }
+  _logger.LogInformation(sb.toString);
+}
+----
 
-include::../comments-and-links.adoc[]
-endif::env-github,rspecator-view[]
+== Exceptions
+
+No issue is reported when `StringBuilder` is:
+
+* Accessed through a `CopyTo()` or `GetChunks()` invocation.
+* Passed as method argument, on the grounds that it will likely accessed through a `ToString()` invocation there.
+* A parameter of the current method.
+* Retrieved by a custom function (`var sb = GetStringBuilder();`).
+* Returned by the method.

rules/S3063/vbnet/metadata.json

@@ -0,0 +1,2 @@
+{
+}

rules/S3063/vbnet/rule.adoc

@@ -0,0 +1,49 @@
+`StringBuilder` instances that are not accessed through a `ToString()` invocation needlessly clutter the code, and worse are a drag on performance. Either they should be removed, or the missing `ToString()` call should be added.
+
+== Noncompliant Code Example
+
+[source,vbnet]
+----
+Public Sub DoSomething(ByVal strings As List(Of String))
+    Dim sb As StringBuilder = New StringBuilder() ' Noncompliant
+    sb.Append("Got: ")
+
+    For Each str As String In strings
+        sb.Append(str).Append(", ")
+    Next
+End Sub
+----
+
+== Compliant Solution
+
+[source,vbnet]
+----
+Public Sub DoSomething(ByVal strings As List(Of String))
+    For Each str As String In strings
+    Next
+End Sub
+----
+or
+[source,vbnet]
+----
+Public Sub DoSomething(ByVal strings As List(Of String))
+    Dim sb As StringBuilder = New StringBuilder()
+    sb.Append("Got: ")
+
+    For Each str As String In strings
+        sb.Append(str).Append(", ")
+    Next
+
+    My.Application.Log.WriteEntry(sb.toString)
+End Sub
+----
+
+== Exceptions
+
+No issue is reported when `StringBuilder` is:
+
+* Accessed through a `CopyTo()` or `GetChunks()` invocation.
+* Passed as method arguments, on the grounds that it will likely accessed through a `ToString()` invocation there.
+* A parameter of the current method.
+* Retrieved by a custom function (`Dim sb As StringBuilder = GetStringBuilder()`).
+* Returned by the method.