如何讓richtextbox的縮排啟動後變正常(編號：8792)

With RichTextBox1
.SelIndent = 200 '一定設在selbullet和bulletindent之前
　 .SelBullet = 1000　　'設定左邊圓圈圈的
　 .BulletIndent = True '設定左邊圓圈圈啟動
　　For i = 1 To 3
　　　　.SelText = "a:" & i & vbCrLf
　　Next　
　 .SelText = "這裡我要變正常,不縮排" '麻煩大家這裡我變成正常格式
End With