Option Explicit
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
