Ciao Berello!
Per aprire la finestra di connessione devi utilizzare solo questo:

Dim x As Long
x = Shell("RUNDLL32.EXE rnaui.dll,RnaDial " & "Connection Name", vbNormalFocus)

se non specifichi "Connection Name" si apre la finestra di connessione predefinita in accesso remoto!

Se vuoi sapere come devi visualizzare tutte le configurazioni di accesso remoto fammelo sapere!

Il resto del codice serve per verificare se il pc è connesso o meno!

Ciao