→→→FizzBuzz

Dim i,j,x,y As integer
Dim ans As String

For i = 1 To 100
  x = i Mod 3
  y = i Mod 5
  If x = 0 Then
    ans = "Fizz"
    If y = 0 Then
        ans = ans & "Buzz"
    End If
 ElseIf y = 0 Then
    ans = "Buzz"
 Else
    ans = Val(:)
 End If
 TextBox1.Text = TextBox1.Text & ans & vbCrLf
Next