[rskar]

And now, in VBA:

    Sub Main()
    
        Dim i As Integer
        For i = 1 To 100
            Dim f As Integer
            f = IIf(i Mod 3, 0, 1) Or IIf(i Mod 5, 0, 2)
            Dim buf As String
            If f = 0 Then
                buf = Format(i)
            Else
                buf = IIf(f And 1, "fizz", "") + IIf(f And 2, "buzz", "")
            End If
            Debug.Print buf
        Next i
    
    End Sub