Нужна помощ с запускам html файла

[valera]

Помогите найти ошибку, или изменить код, вот кстати и он сам

Код

Private Sub Command1_Click()
Shell App.Path & "histori\index.html", vbNormalFocus 'запускаем файл csstool.exe (устоновочный файл)
End Sub

Private Sub Command2_Click()
Shell "notepad " & App.Path & "\README.txt", vbNormalFocus ' запускаем файл README.txt
End Sub

Private Sub Command3_Click()
End ' закрываем программу
End Sub

А именно при запуске первого файла, histori\index.html программа выдает 5 ошибку, кто скажет в чем дело? и как это исправить.