VBScript. Проблемы с открытием папки из MsgBox

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

Помогите допилить скрипт? 2 дня писал. Затыка в том, что при нажатии кнопки "Нет" в MsgBox он должен закрываться, а при нажатии "Да" должен открываться каталог по пути из переменной f1.

Dim a1, b1, c1, d1, e1, f1, objShell
a1 = RecordsToString(SELECT COUNT(*) FROM qdfMain WHERE ID =  AND ID IN (SELECT ID FROM qdfMain WHERE (TypeClaim LIKE '7-10%' OR TypeClaim LIKE '7-90%')))
b1 = RecordsToString(SELECT MAX(TPI) FROM qdfDamage WHERE KI IS NOT NULL AND KI =  AND DamID < )
c1 = 
d1 = RecordsToString(Select KI FROM qdfDamage WHERE DamID = )
e1 = (Left (d1, 2) + Right (d1, 2))
f1 = "Старая редакция HST: " & b1 & vbCrLf & "Новая редакция HST: " & c1 & vbCrLf & vbCrLf & "Добавьте актуальное описание мероприятия в папку:" & vbCrLf & "D:\VW DATA\Сервисные мероприятия\Aktionen\" & e1 & vbCrLf & vbCrLf & "Открыть папку?"
If a1 = 1 And b1 <> c1 Then
MsgBox(f1, vbYesNo)
Else If MsgBox(f1, vbYesNo) = vbYes Then
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "f1"
End If

Решение задачи: «VBScript. Проблемы с открытием папки из MsgBox»

textual
                            Листинг программы 
                        

                            Dim path, objShell
path = "C:\Program Files"
If vbYes = MsgBox(path, vbYesNo) Then
Set objShell = CreateObject("Wscript.Shell")
objShell.Run path
End If

                        