Visual Basic - Extensión por defecto

Gracias a la respuesta por la pregunta anterior. Ahora, como hago para que aparesca la extensión de un archivo por defecto en el donde dice nombre de archivo utilizando common dialog en showopen. Espero su respuesta. Gracias. :-)

Hola
CommonDialog1.Filter = "Programas (*.exe)|*.exe"
'Programas (*.exe)' es lo que se visualizará en la parte inferión de la ventana abrir.
Puedes también especificar un directorio por defecto
CommonDialog1.InitDir="C:\UnDirectorio\UnSubidrectorio"
Un saludo