Kolay Gelsin vb kullanımında yeniyim bir kısımda takıldım yardımcı olursanız sevinirim

Sub Timer2_Timer ()
If label2.Caption = text1.Text And k1.Value = True Then
MsgBox ("Bilgisayarınız Kapatılıyor"), (16), ("UYARI !!!")
End If
If label2.Caption = text1.Text And r1.Value = True Then
MsgBox (" Bİlgisayarınız Resetleniyor "), (16), ("UYARI !!!")
End If

Üstte pc kapatma komutunu eklemeden uygulama düzgün bir şekilde çalışıyor yalnız

pc kapatma yada reset kodunu eklediğimde shell komutunu kabul etmiyor nerde hata yapıyorum ?

Shell ("shutdown -s -t 1") Komutunu Nereye Eklemem Lazım Şimdiden Teşekkürler