Private Sub AddButton_Click()
    ' テキストボックスの数を取得
    Dim cnt As Integer
    cnt = controlCounts("TextBox")
 
    ' テキストボックス追加
    cnt = cnt + 1
    Dim newTextBox As MSForms.textBox
    Set newTextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & Str(cnt))
    With newTextBox
      .Width = 60
      .Height = 20
      .Left = 20
      .Top = cnt * 21 - 12
    End With
 
End Sub
 
Private Sub DeleteButton_Click()
    ' テキストボックスの数を取得
    Dim cnt As Integer
    cnt = controlCounts("TextBox")
 
    ' コントロールの数が0なら何もしない
    If cnt = 0 Then
        Exit Sub
    End If
 
    ' 最後に追加したテキストボックス削除
    Me.Controls.Remove "TextBox" & Str(cnt)
End Sub
 
Function controlCounts(ctrlType As String)
    ' 指定したタイプのコントロールの数を取得
    Dim cnt As Integer
    cnt = 0
    For Each c In Me.Controls
        If TypeName(c) = ctrlType Then
            cnt = cnt + 1
        End If
    Next
    controlCounts = cnt
End Function

Private Sub DeleteButton_Click()
    Me.Controls.Remove "TextBox1"
End Sub