RosettaCodeData/Task/FizzBuzz/Microsoft-Small-Basic/fizzbuzz.basic

For n = 1 To 100
  op = ""
  If Math.Remainder(n, 3) = 0 Then
    op = "Fizz"
  EndIf
  IF Math.Remainder(n, 5) = 0 Then
    op = text.Append(op, "Buzz")
  EndIf
  If op = "" Then
    TextWindow.WriteLine(n)
  Else
    TextWindow.WriteLine(op)
  EndIf
EndFor