Private Sub File1_Click()Dim fileStr As StringDim dataStr As StringfileStr = File1.List(File1.ListIndex)Open App.Path + "\" + fileStr For Input As #1Input #1, dataStrClose (1)Print dataStrEnd Sub