diff --git a/README.md b/README.md
index 79fd135..506996c 100644
--- a/README.md
+++ b/README.md
@@ -39,3 +39,4 @@ Current implementations:
 - R
 - Ruby
 - Scala
+- Vbscript
diff --git a/Vbscript/fizzbuzz.vbs b/Vbscript/fizzbuzz.vbs
new file mode 100644
index 0000000..7959719
--- /dev/null
+++ b/Vbscript/fizzbuzz.vbs
@@ -0,0 +1,18 @@
+' Fizzbuzz implementation in Visual Basic Script (Vbscript)
+
+Dim i,a,r
+
+Wscript.Echo "Fizzbuzz in Vbscript"
+a = InputBox("Please provide a range for the fizzz...","Fizzbuzz","100")
+
+for i = 0 to CInt(a)
+  If (i mod 3 = 0) Then
+    r = r + "Fizz "
+  Elseif (i mod 5 = 0) Then
+    r = r + "Buzz "
+  Else
+    r = r + CStr(i)+" "
+  End if
+Next
+
+Wscript.Echo r