HOLA
Aquí está mi respuesta,.
La cual como puedes ver tienes la posibilidad de cargar los textboxes que quieras cuando ingreses la cantidad N que te solicita el programa, que lógicamente debe ser
mayor o igual a 1, pero si te pasas de 6 debes estirar el largo del formulario:
Dim N As Integer
Dim J As Integer
Private Sub Command1_Click()
Dim ss As Integer
Dim pr As Double
ss = 0
For J = 0 To N - 1
ss = ss + Val(Text1(J).Text)
Next
Label1.Caption = "El promedio de los " & N & " números ingresados es... " & ss / N
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
N = 1
Do Until N >= 2
N = InputBox("Ingrese la cantidad de números deseada:" & vbCrLf & vbCrLf & "Nota: Debe ser mayor a 1.", "Escriba...", "2")
Loop
Text1(0).Text = ""
Text1(1).Text = ""
If N > 2 Then
For J = 2 To N - 1
Load Text1(J)
Text1(J).Visible = True
Text1(J).Top = Text1(J - 1).Top + 560
Text1(J).Text = ""
Next
End If
End Sub
Que tengas un gran día