vabbè, intanto bravo. Poi speriamo che qualcuno di quelli che fan fatica a "ricorrere" ringrazi.
Poi, se proprio vuoi saperlo, allora eccoti i miei "2 cent":

Trim(LCase(fileName))
...
UCase(estensionefile)
è più "Nettiano" usare
codice:
fileName.Trim().ToLower()
...
estensionefile.ToUpper()
Ma credo sia più importante questo:
nel select case per l'estensione, MOV si ripete 3 volte, MP4 due;
per evitare ripetizioni inutili (e forse anche per accelerare un pochino il codice) ti conviene scrivere i case raggruppando le istruzioni che producono lo stesso risultato, e mettendo prima quelli che hanno la maggior probabilità di verifiarsi (o quelli che si potrebbero incontrare più spesso). in alternativa, puoi sempre ordinarli per logica (da 1 a 9) se non temi tempi leggermente più lunghi
codice:
Case ".AVI"
	coso = 1
Case ".MKV",".MKA"
	coso = 2
Case ".MP4",".MOV",".MPA",".MP2"
             coso = 9
Case ".MPG", ".MPEG"
	coso = 4
Case ".DIVX", ".IFO"
	coso = 6
Case ".WMV"
	coso = 7
Case ".VOB"
	coso = 8
Case ".TS"
	coso = 5

Case Else
	coso = 0