Shell("msg /Server:192.168.xxx.xxx 'Göndermek istediğiniz mesaj'", vbNormalFocus)

bu kodu şartımdan sonra yazdım ama renk kırmızıya döndü, yanlış yere yapıştırmadığımdan eminim, eksik bir şey mi yaptım acaba, aşağıdaki gibi


...
Else
Shell("msg /Server:192.168.xxx.xxx 'Göndermek istediğiniz mesaj'", vbNormalFocus)
'MsgBox " tarihi yaklaşan kayıt veya kayıtlar var"
Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
ThisWorkbook.Saved = True
Application.Quit
'Rs.Close
'Con.Close

End If