Visual Basic - Quitar algo de un list

Hola amigos utilizo el siguiente codigo para pasar lo que se carga en un filelist a un listbox.

Private sub cargar()
File1.Path = "C:\Videos\"
List1.Refresh
File1.Refresh
List1.Clear
Dim i As Integer
For i = 0 To File1.ListCount


List1.AddItem File1.List(i)

Next i
End Sub

Todo bien pero en el list se carga asi:

Arboles.avi
Nubes.avi
Fuego.avi
......etc

como quito el " .avi " para que no aparezca en mi listbox solo quiero el puro nombre.

Arboles
Nubes
Fuego
....etc

como le puedo hacer amigos???
Gracias por su ayuda

Hola, pon la instrucción así

List1.AddItem Left(File1.List(i), InStrRev(File1.List(i), ".") - 1)