I am not sure about this, but I think you need to put a slash between these Path and FileName:

txt_profilepath.Text = file1.Path & "\" & file1.FileName