Como crear códigos correlativos alfanuméricos

Me gustaría y me ayudaran en el siguiente problema, ya que tengo un formulario en el cual necesito llevar un código alfanumérico, y encontré lo siguiente y me funciona, el problema es que cuando salgo del formulario e ingreso nuevamente pierde la correlativa:

Private Sub CommandButton4_Click()
nrotext = Mid(TextBox1, 3, Len(TextBox1) - 2) + 1
TextBox1 = "CE" & nrotext
en sub

Private Sub UserForm_Initialize()
TextBox1 = "CE10001"
End Sub