Private Sub Command1_Click()
 Dim strA As String
 Dim strB As String
 Dim intL As Integer
 Dim i As Integer
   
   strA = "*****************"
   intL = Len(strA)
   For i = 1 To intL
      strB = Mid(strA, i, i)
      Print strB
   Next
End Sub