fizzbuzz_by_VBA

gistfile1.vb

Sub fizzBuzz()

maxNumber = 100

Message = ""

For num = 1 To maxNumber

    Message = Message & ", "

    sayFizz = (num Mod 3 = 0)
    sayBuzz = (num Mod 5 = 0)
    
    If Not (sayFizz Or sayBuzz) Then
        Message = Message & num
    ElseIf sayFizz And sayBuzz Then
        Message = Message & "Fizz Buzz"
    ElseIf sayFizz Then
        Message = Message & "Fizz"
    ElseIf sayBuzz Then
        Message = Message & "Buzz"
    End If

Next

Message = Right(Message, Len(Message) - Len(", "))

MsgBox Message

End Sub