On the "browse" button you could put something like this...
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()
<SPAN style="color:#00007F">Dim</SPAN> tmpFile <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
tmpFile = Application.GetOpenFilename("Microsoft Excel Files (*.xls;*.xlt;*.xla),*.xls;*.xlt;*.xla")
<SPAN style="color:#00007F">If</SPAN> tmpFile <> "False" <SPAN style="color:#00007F">Then</SPAN> TextBox1 = tmpFile
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>