SMALL BASIC: Printing out String a letter by a letter

a = "AAAAAA"
For i = 1 To Text.GetLength(a)
  TextWindow.WriteLine(text.GetSubText(a,i,1))
EndFor