Calcular NIF automaticamente

En clase dimos los ARRAYS, que son como los cajones de un armario, para que tengais una imagen visual aproximada de lo que es un array, mi profesor hizo el siguiente ejercicio que yo os traslado gustosamente. vamos a lo que vamos, primero una pequeña imagen de lo que hace el cacharro y luego el codigo:

No es necesario explicar que hace esto, pero alla vamos, el boton reiniciar borra todos los datos de los dos textbox y los deja vacios y el boton nº dni calcula el numero del dni y lo escribe en el textbox letra, alla va el codigo developers:

CODIGO

Private Sub Command1_Click() 'este es el boton reiniciar

      numero.Text = ""
      letra.Text = ""
End Sub

Private Sub Command2_Click()


Dim resto As Integer
Dim letras(0 To 22) As String

If numero.Text = "" Then
    MsgBox "La casilla debe llenarse con un DNI valido", vbOKOnly, "Aclaración"
Else
    If IsNumeric(numero.Text) = True Then
       letras(0) = "T"
       letras(1) = "R"
       letras(2) = "W"
       letras(3) = "A"
       letras(4) = "G"
       letras(5) = "M"
       letras(6) = "Y"
       letras(7) = "F"
       letras(8) = "P"
       letras(9) = "D"
       letras(10) = "X"
       letras(11) = "B"
       letras(12) = "N"
       letras(13) = "J"
       letras(14) = "Z"
       letras(15) = "S"
       letras(16) = "Q"
       letras(17) = "V"
       letras(18) = "H"
       letras(19) = "L"
       letras(20) = "C"
       letras(21) = "K"
       letras(22) = "E"

   resto = Val(numero.Text) Mod 23
   letra.Text = letras(resto)

  Else

      MsgBox "Debe ser un numero de ocho digitos", vbOKOnly, "Error"

  End If

End If

End Sub