Option Explicit
 
Public glbFilePath As String
Public glbFileName As String

Private Sub File1_Click()
  With File1
    If .ListIndex > -1 Then
      glbFilePath = .Path
      glbFileName = .List(.ListIndex)
    End If
  End With
End Sub