easy!,
have a file list box and a label
'''''''''
Private Sub File1_Click()
Label1.Caption = File1.filename
End Sub
'''''''''