Имеется textbox, куда пользователь вводит число. Visual Basic 6.0.

Число как-то ограничено сверху? Допустим, списков может быть не больше 10.
Рисуешь на форме текстовое поле Text1, в котором ты будешь записывать число.
Рисуешь также комбобокс, его имя будет Combo1, задаешь кол-во вариантов выбора и ставишь свойство
Combo1.Visible = False.
Потом выделяешь его, копируешь Ctrl+Insert и вставляешь тут же Shift+Insert.
Он тебе скажет на английском что-то типа "Combo1 уже существует, вы хотите создать массив?"
Отвечаешь Yes.
Он создает массив, имя этого списка станет Combo1(0), а имя копии Combo1(1).
Копируешь так 10 списков, имя последнего будет Combo1(9) и размещаешь их на форме.
Также ставишь на форму кнопку и вешаешь на нее программу
Private Sub Command1_Click()
Dim i As Integer
If (Val(Text1.Text) >= 1) And (Val(Text1.Text) <= 10) Then
For i = 0 To Val(Text1.Text) - 1
Combo1(i).Visible = True
Next i
Else
MsgBox("Введите в Text1 число от 1 до 10")
End If
End Sub
В результате у тебя из имеющихся 10 списков станут видны столько, сколько написано в Text1.Text.