Public Sub Main()
  Dim TestString as String
  Dim I as Integer

  TestString = "1001 Visual Basic Programmer's Tips"

  For I = 0 to Len(TestString) Step 2
    TestString = Left(TestString, I) & UCase(Mid(TestString, _
      I + 1, 1)) & Right(TestString, Len(TestString) - (I + 1)) 
  Next
  Debug.Print TestString	'