Visual Basic - Ayuda con FileListBox

Hola amig@s. No se porque no me sale esta pequeña parte de mi programa. Por favor necesito vuestra ayuda, si sois tan amables.
---------------
Quiero que al pinchar en cualquier archivo de este FileListBox, automaticamente me lo introduzca en el TextBox sin la extension, y al perder este el foco, el File se inabilite. Lo hago asi:

Dim longD As Integer
Dim longE As Integer
Dim longF As String
Dim CarpetadeProgramas As string

Private Sub File2_Click()
If Len(File2.filename) < 0 Then
NADA1 = ""
Else
If Len(File2.filename) > 1 Then
longD = Len(File2.filename) ' Longitud total del nombre fichero+extension.
longE = longD - 4 'Longitud total-4caracteres (por ".ext")
longF = Left(File2.filename, longE)
Text11.Text = longF
End If
End If
End Sub

Private Sub Text11_GotFocus()
Text11.BackColor = &HFFFFC0
File2.BackColor = &HFFFFC0
File2.Enabled = True
End Sub

Private Sub Text11_LostFocus()
File2.BackColor = &H8000000F
File2.Enabled = False
End Sub

Private Sub Form_Load()
CarpetadeProgramas = "C:\Ficheros"
File2.Path = CarpetadeProgramas
End Sub

---------------------

Faltan los Enabled=Falde/True...., en fin, eso me sale bien. El problema es que cuando pincho en un fichero, inabilita el TextBox, se va al siguiente elemento, PERO... NO mete el fichero sin su extensdion en el Text11.

GRACIAS de antemano a tod@s.

ARRA

Text11=mid(file2,1,instr(file2,".")-1)

Explicación: Text11 será igual a lo que hay en file2 desde el caracter 1 hasta encontrar el punto, como el punto no debe salir -1.

Hola Pedro Luis.
GRACIAS por tu ayuda. No lo entiendo, pero a ver si la saco con mucha paciencia. No estoy muy puesta en esto y.....

GRACIAS de nuevo amigo.

Arra

escribe esto en File1_Click

Private Sub File1_Click()
Set fso = CreateObject("scripting.filesystemobject")
Text11 = fso.GetBaseName(File1.FileName)
File1.Enabled = False
End Sub