Visual Basic - URGENTE FILELISTBOX

TENGO EL SIGUIENTE CODIGO Q ME LO SUMINISTRO ALGUIEN DEL FORO, PERO ME CUANDO PRESIONO CLICK POR PRIMERA VEZ EN EL BOTON Q TIENE ESTE CODIGO NO HACE NADA, PERO CUANDO LE VUELVO A DAR CLIK ME DICE Q EL ARCHIVO YA ESTA ABIERTO PERO NO ME LO MUESTRA X NINGUN LADO Q HAGO URGENTE POR FAVOR

Dim var1 As String
Dim var As String

For k = 0 To File1.ListCount
Text1.Text = File1.List(k)
Text1.Text = File1.FileName
Next

Open File1.Path & File1.FileName For Input As #1

Do While Not EOF(1)
Line Input #1, var1
Text1.Text = Text1.Text & var
Loop
Close #1

El codigo que tienes considero que no lo tienes sobre un solo evento de un control, sino que algunas lineas pertenecen solo al evento click o doble click del Filelist. Seria necesario saber que lineas de codigo estas colocando en cada evento, por una parte. Por otra parte, esta en la variable var1 estas dejando la linea leida del archivo pero luego trabajas con otra variable`"var".