With CommonDialog1
.ShowOpen
If .FileName <> "" Then
Text1.Text = Right(.FileName, InStrRev(.FileName, "/")
end if
End With
With CommonDialog1
.ShowOpen
If .FileName <> "" Then
Text1.Text = Right(.FileName, InStrRev(.FileName, "/")
end if
End With