Add VB.NET implementation

vbnet/GildedRoseKata.Tests/GildedRoseKata.Tests.vbproj

@@ -0,0 +1,20 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+    <PropertyGroup>
+        <TargetFramework>net6.0</TargetFramework>
+
+        <IsPackable>false</IsPackable>
+    </PropertyGroup>
+
+    <ItemGroup>
+        <PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.11.0" />
+        <PackageReference Include="NUnit" Version="3.13.2" />
+        <PackageReference Include="NUnit3TestAdapter" Version="4.0.0" />
+        <PackageReference Include="coverlet.collector" Version="3.1.0" />
+    </ItemGroup>
+
+    <ItemGroup>
+      <ProjectReference Include="..\GildedRoseKata\GildedRoseKata.vbproj" />
+    </ItemGroup>
+
+</Project>

vbnet/GildedRoseKata.Tests/GildedRoseTests.vb

@@ -0,0 +1,19 @@
+Imports NUnit.Framework
+
+Namespace GildedRoseKata.Tests
+    Public Class GildedRoseTests
+        <Test>
+        Public Sub foo()
+            Dim Items As IList(Of Item) = New List(Of Item) From {
+                    New Item With {
+                    .Name = "foo",
+                    .SellIn = 0,
+                    .Quality = 0
+                    }
+                    }
+            Dim app = New GildedRose(Items)
+            app.UpdateQuality()
+            Assert.AreEqual("fixme", Items(0).Name)
+        End Sub
+    End Class
+End Namespace