Как подключить cisco любое подключение с помощью Excel VBA

Question

Я использую приведенный ниже код для запуска cisco any connect, но я хочу подключить cisco с помощью Excel vba, который может получать данные об имени пользователя и пароле из активной книги.

Sub cisco()

 Dim sconnstring As String
 sconnstring = "C:\Program Files (x86)\Cisco\Cisco AnyConnect Secure Mobility Client\vpnui.exe"

 Shell sconnstring, vbMaximizedFocus

End Sub