VBA自学应用（8）——文本框中按Enter键输入数据

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    With TextBox1
        If Len(Trim(TextBox1.Text)) > 0 Then