Visual Basic - Archivos binarios?!!!

El suiente codigo me hace una copia de un archivo..., pero el tema es que nose se como hacer para que me cree la extension tambien...(a menos que se la especifique en el nombre de archivo del cuadro Commondialog, lo cual quiero evitar)
el codigo es el siguiente:

Dim Datos As String * 1024
Dim Archivo As String

Private Sub Command1_Click()
Common1.DialogTitle = "Buscar archivo..."
Common1.FileName = ""
Common1.Filter = "Todos los archivos|*.*"
Common1.ShowOpen
Label1.Caption = Common1.FileName
End Sub

Private Sub Command2_Click()
Common1.DialogTitle = "Guardar archivo..."
Common1.FileName = Label1.Caption
Common1.ShowSave

Open Label1.Caption For Binary As #1
While Not EOF(1)
Get #1, , Datos
Archivo = Archivo & Datos
Wend
Close

Open Common1.FileName For Binary As #1
Put #1, , Archivo
End Sub

Bueno... espero que se halla entendido mi duda... y desde ya muchisimas gracias!!!
Frank

En esta linea de codigo deberias verificar si ya tiene una extencion o agregarsela vos manualmente de la siguiente manera

Common1.FileName & ".EXT"

Open Common1.FileName & ".EXT" For Binary As #1
Put #1, , Archivo
End Sub

gracias por responderme... igual no me sirvio porque yo necesitaba un codigo cuando no sabia que extension era el archivo..., pero me sirvio la idea de & ""... ya que le puse el siguiente codigo :

Open Common2.FileName & Mid(Common1.FileName, Len(Common1.FileName) - 3, 4) For Binary As #1
Put #1, , Todo

Este codigo me saca los 4 ultimos digitos del nombre del archivo (incluido el punto)