VB Code:
  1. For i=1 to 49