Module Module1
Function FizzBuzzify(ByVal Value As Integer) As String
If Value Mod 5 = 0 And Value Mod 3 = 0 Then
Return "FizzBuzz"
End If
If Value Mod 3 = 0 Then
Return "Fizz"
End If
If Value Mod 5 = 0 Then
Return "Buzz"
End If
Return Value
End Function
Sub FizzBuzz(ByVal MinValue As Integer, ByVal MaxValue As Integer)
For index = MinValue To MaxValue
Console.WriteLine(FizzBuzzify(index))