From d97e324e11c0f9c47c504dc04842a1858a5f6aa4 Mon Sep 17 00:00:00 2001
From: Corniel Nobel <mail@corniel.nl>
Date: Tue, 18 Oct 2022 12:11:58 +0200
Subject: [PATCH] Modify rule S2225: Add VB.NET (#1062)

---
 rules/S2225/vbnet/metadata.json |  3 +++
 rules/S2225/vbnet/rule.adoc     | 36 +++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 rules/S2225/vbnet/metadata.json
 create mode 100644 rules/S2225/vbnet/rule.adoc

diff --git a/rules/S2225/vbnet/metadata.json b/rules/S2225/vbnet/metadata.json
new file mode 100644
index 0000000000..d0714a74e5
--- /dev/null
+++ b/rules/S2225/vbnet/metadata.json
@@ -0,0 +1,3 @@
+{
+  "title": "\"ToString()\" method should not return Nothing"
+}
diff --git a/rules/S2225/vbnet/rule.adoc b/rules/S2225/vbnet/rule.adoc
new file mode 100644
index 0000000000..a3cf0c1360
--- /dev/null
+++ b/rules/S2225/vbnet/rule.adoc
@@ -0,0 +1,36 @@
+Calling `ToString()` on an object should always return a string. Returning `Nothing` instead contravenes the method's implicit contract.
+
+== Noncompliant Code Example
+
+[source,vbnet]
+----
+Public Overrides Function ToString() As String
+    Return Nothing
+End Function
+----
+
+== Compliant Solution
+
+[source,vbnet]
+----
+Public Overrides Function ToString() As String
+    Return ""
+End Function
+----
+
+include::../see.adoc[]
+
+ifdef::env-github,rspecator-view[]
+
+'''
+== Implementation Specification
+(visible only on this page)
+
+include::../message.adoc[]
+
+'''
+== Comments And Links
+(visible only on this page)
+
+include::../comments-and-links.adoc[]
+endif::env-github,rspecator-view[]