Átváltás String-ből Double-be nem érvényes (VB. NET)?

Próbálok írni egy programot, ahol egy mappában lévő fájlokat beolvas, majd kiválasztja azokat amiknek ".txt" a végük. Ezeket betöltené egy ListBox-ba, miközben leszedi az utolsó négy karaktert (hogy ne látszódjon a kiterjesztés), de nem működik. (Ha kivszem a substringet, működik.) Mi a hiba?

Dim folderInfo2 As New IO.DirectoryInfo("VinnaApp/codex/" & DataTab & "/" & DataGroupBox.SelectedItem.ToString)

Dim arrFilesInFolder2() As IO.FileInfo

Dim fileInFolder2 As IO.FileInfo

arrFilesInFolder2 = folderInfo2.GetFiles("*.txt")

For Each fileInFolder2 In arrFilesInFolder2

DataEntryBox.Items.Add(fileInFolder2.Name.Substring(0, fileInFolder2.Name - 4))

Next