tableau dynamique

slt
j'éssaye d'écrire un petit code qui me permet de saisir un nombre inconnu de note puis de faire la moyenne et l'afficher dans un textBox mais j'ai un petit pbm lors de l'éxécution il m'indique que l'indice en dehors de la plage si o peut m'aider et me faire comprendre c'est quoi l'erreur et merci d'avance voici le code:
une question comment je peux faire un controle de saisie pour un input box par exemple je ne peux saisir que des chiffres????
Option Explicit
Dim T() As Double


Private Sub cmdAjout_Click()
Dim val As Double
val = (InputBox("donner la valeur" ))
If val >= 0 And val <= 20 Then
ReDim Preserve T(UBound(T) + 1)
T(UBound(T) - 1) = val
End If
End Sub

Private Sub cmdMoyenne_Click()
Dim M As Double
Dim i As Integer
For i = 0 To UBound(T) - 1
M = M + T(i)
Next i
txtAffiche.Text = M / UBound(T)
End Sub

je ne connais pas d'avance le nombre de notes et j'ai fait redim mais ça ne marche pas