Creo que la otra vez que preguntaste esto no te entendí muy bien, pero ahora parece estar bastante más claro, a ver si esta vez he acertado... :

Values = Array(Null, _
               1773, 1773, 1773, 1773, _
               1774, 1774, 1774, 1774, 1774, 1774, 1774, _
               1775, 1775, 1775, 1775, 1775, 1775, 1775, _
               "etc...")
 
 
Set FSO   = CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(".\").Files
 
For Each File in Files
 
    If LCase(FSO.GetExtensionName(File)) = LCase("T01") Then
        Wscript.Echo "File:  " & File.name & _
                     VBNewLine & _
                     "Value: " & Values(Cint(Mid(File.name, 5, 3)))
    End If
 
Next
 
Wscript.Quit(0)

Saludos

Si por ejemplo tenemos este Array:

El primer elemento (índice 0) es 1773, el segundo elemento (índice 1) es 1774, y el tercer elemento (índice 2) es 1775 , supongo que esto está más que claro, pero por si acaso lo comento igual.

En esta instrucción

Con el método Mid(File.name, 5, 3) hago un Substring a la cadena de texto y obtengo el String 001 (o 002, o 003, etc... según el nombre del archivo)

Después, con el método Cint(001) indico que el 001 se debe tratar como un valor numérico (Int32), esto le quita los ceros de la izquierda quedando un 1

Y por último con Values(1) llamo al índice 1 del Array, que es el valor 1773

El índice del Array del código está adaptado para que coincida de forma exacta con el String que obtienes al usar la función Mid, por eso el primer elemento del Array es Null.

Saludos