Visual Basic - Guardar archivos de texto en visual

Buenas noches! quisiera saber como hago para guardar un archivo en visual pero que me permita elegir donde deseo guardarlo, porque el codigo que cree me lo guarda automaticamente en la ruta que indico que es mis documentos pero no me permite hacer la seleccion de donde desea el usuario guardarlo... Me dicen que no es complicado pero en realidad no se =( yo hice el codigo de abrir que si me funciona y me permite indicar de donde deseo abrir el archivo me dijeron que para guardar era el mismo codigo pero inverso y en realidad no se =S
aqui dejo el codigo que tengo de abrir por si alguien me puede decir como utilizar el mismo para guardar

Private Sub Command1_Click()
Dim cAbrir As Integer
cAbrir = FreeFile
CommonDialog1.Filter = "Batch Files (*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
If Err.Number = 32755 Then Exit Sub 'SI CANCELA
Open CommonDialog1.FileName For Binary As #cAbrir
nlen = LOF(cAbrir)
Texto$ = Space$(nlen)
Get #cAbrir, , Texto$
Text1.Text = RTrim$(Texto$)
Close #cAbrir
End Sub

A los que puedan ayudarme muchas gracias =)