prima di tutto recuperi tutti i file tramite il metodo GetFiles dell'oggetto DirecoryInfo che restituisce un array di oggetti FileInfo, ognuno dei quali conterrà le informazioni di ogni singolo file, compreso il nome:
Dim Dir As DirectoryInfo
Dim Files() As FileInfo
Dir = New DirectoryInfo("C:\FILES\")
Files = Dir.GetFiles("*.htm")
la proprietà Name dell'oggetto FileInfo contiene il nome del file.
poichè Files è un array puoi recuperare i suoi elementi tramite indice cioè il numero digitato nel campo di testo - 1 (gli array sono a base 0).
Dim NomeFile as String
NomeFile = Files(CType(CampoTesto.Text, Integer) -1).Name