2 Вопроса насчет CommonDialog и Shell - VB

Формулировка задачи:

Уважаемые знатоки, вопрос: 1. Делаю сохранение файла. Если файл с таким именем уже есть, то выскакивает msgbox (Yes/No). Соответственно производится или не производится перезапись. При повторном вызове процедуры, при нажатии кансел в commondialog-е опять срабатывает условие (ElseIF strfilename <> "" And afile = 1) и соответственно выскакивает табличка msgbox (Yes/No). Как сделать чтобы эта табличка не выскакивала в данном случае?

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command3_Click()
CD1.Filter = "doc|*.doc|txt|*.txt|"
nfreefile = FreeFile
CD1.ShowSave
strfilename = CD1.FileName
afile = PathFileExists(strfilename)
 
'CD1.CancelError = True
 
If strfilename <> "" And afile = 0 Then
    Open strfilename For Output As nfreefile
    ElseIf strfilename <> "" And afile = 1 Then
    t$ = vbYesNo Or vbQuestion Or vbDefaultButton2 Or vbApplicationModal
    bfile = MsgBox("Файл с таким именем уже существует. Перезаписать файл?", t$, "Внимание")
    End If
            
If bfile = 6 Then
Open strfilename For Output As nfreefile
Else
Exit Sub
End If

2. Как открыть файл если путь задан через переменную strfilename? Если я пишу вместо пути файла strfilename - неполучается. Shell "cmd /X /C start

                    Листинг программы
                
 C:\autoexec.bat", vbHide 
Shell "cmd /X /C start strfilename", vbHide

3. Ну и заодно подскажите как форматировать эти самые ТЕГИ?

Апать тут запрещено или как?

Решение задачи: «2 Вопроса насчет CommonDialog и Shell»

textual
                            Листинг программы 
                        
Shell "cmd /X /C start " & strfilename, vbHide