dim nombre as stringnombre = CommonDialog1.FileName'y usas el nombre para el open nombre for binary as #1 etc....