添加动态文本框属性

Question

我有两个userform, Form1和Form2。在Form1中，用户将在Form2中输入他们需要多少个动态文本框。用户在动态文本框中的输入应该恰好是2个字符，不小于或大于。

我的问题是

1. 如何创建一个提示符，显示用户输入小于2?我设法把最大限制属性，但它仍然接受，如果输入值只有1个字符。
2. 我如何创建一个提示检查，输入的最后一个字母在Form1是相同的输入的第一个字母在动态文本框?

示例说明:

Form1 User Input: BA               Form2 Dynamic Textbox: AD
AE
AF
AG

3. 如何将动态文本框中自动输入的字母大写?我试过Ucase，但是没有用。

这是我的动态文本框脚本。

Private Sub Form2_Initialize()
textbox_count = Form1.txtbox_count.Value
Dim txtB1 As Control
For i = 1 To textbox_count
Set txtB1 = Controls.Add("Forms.TextBox.1")

With txtB1
.Name = "txtBox" & i
.Height = 20
.Width = 90
.Left = 80
.Top = 25 * i * 1
End With

txtB1.MaxLength = 2
Next i
End Sub

Answer 1

第3题:

Private Sub TextBox1_Change()
Dim bDisableUpdate As Boolean
If Not bDisableUpdate Then
bDisableUpdate = True
TextBox1.Text = UCase(TextBox1.Text)
bDisableUpdate = False
End If

End Sub