Advertisement
Guest User

Untitled

a guest
Jun 4th, 2018
194
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. Sub b()
  2. s = " bugs in the code" & vbLf
  3. c = 99
  4. While c
  5. Debug.Print c & s & c & s & "Take one down and patch it around"
  6. c = c + 5 - Int(Rnd() * 20)
  7. c = IIf(c < 0, 0, c)
  8. Debug.Print c & s
  9. Wend
  10. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement