Private Sub CommandButton1_Click() Dim z As Integer For z = TextBox1.Text To TextBox2.Text ComboBox1.AddItem z Next zEnd Sub
