Как удалить ярлык через Visual Basic 2010⁠⁠

А теперь для той же самой программы (смотрите предыдущий пост) пишу деинсталлятор. Теперь ярлыки надо удалять. Ну тут уж легче:

Dim DesktopPath As String
Dim strFilePath As String
Dim WshShell As Object
WshShell = CreateObject("WScript.Shell")
DesktopPath = TextBox1.Text & TextBox2.Text & ".lnk"
strFilePath = "cmd.exe /C del " & Chr(34) & DesktopPath & Chr(34) & " /q"
Shell(strFilePath, vbHide)

Видос ещё снял.