پرسش ایجاد حلقه For

[younes672]

سلام
لطفا برای تبدیل کدهای زیر به حلقه For راهنمایی بفرمایید.

Private Sub TextBox21_Change()
If Len(TextBox21.Text) >= 6 Then
     TextBox21.Text = Left(TextBox21.Text, Len(TextBox21.Text) - 1)
Else
MyString = TextBox21.Text
Pos = InStr(1, MyString, "_")
If Pos > 0 Then
       NewString = Left(MyString, Pos - 1)
Else
NewString = MyString
End If
If Len(NewString) < 11 Then
    TextBox21.Text = NewString & Right(Maska, Len(Maska) - Len(NewString))
    TextBox21.SelStart = Len(NewString) 
  End If 
      End If
End Sub