'Place the following code in a File1_Click()

If Right (File1.Path,1) <> "\" Then
Label1.Caption = File1.Path & "\" & file1.Filename
else
Label1.Caption = File1.Path & file1.Filename
end if