Rotate Textbox

I am working in vb6...windows 8

This code works good under a button click but i need it to save where I stop it and then move again when i do another button click.
Can anyone help?? Thank you.


Private Sub Command1_Click()
Dim LB As Integer, UB As Integer
Dim i As Integer, sText As String

With txtbox
LB = .LBound
UB = .UBound
sText = .Item(UB).Text

For i = UB To LB + 1 Step -1
.Item(i).Text = .Item(i - 1).Text
Next

.Item(LB).Text = sText
End With


End Sub