I have made therefore.
If .ShowDialog = DialogResult.OK Then
Dim name = .FileName
Dim end = .FileName.LastIndexOf(".")
fil = Mid(fil, 1, fine - 0)
fil = fil & ".object.type.dat"
.......