使用前缀更新数字系列

Question

我有一个“主表单”，然后有2个不同的表单将信息拆分成适用于表单的主表单。我想生成一个代码来帮助我增加“申请号”，我做了一些研究并获得了一些代码，但是我似乎无法按顺序使用该号码。

我已经在userform_Initialize和CommandButton的后面编写了代码。该数字似乎保持在2020001，并将信息乘以2。

 Private Sub UserForm_Initialize()
  Dim NextNum As Long, prefix As String
  Dim i As Long
  prefix = "202000"
  NextNum = Application.WorksheetFunction.Max(Worksheets("MAIN 
  FORM").Columns(4))
  i = NextNum + 1
  Me.TextBox1.Enabled = False
  Me.TextBox1.Value = prefix & i
  Worksheets("MAIN FORM").Cells(i, 4) = i

With ThisWorkbook.Worksheets("MAIN FORM")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1) = TextBox1.Value      
 TextBox1.Text = Application.Max(.Range("A:A")) + 1
 End With