Private Sub Form_Load()
Dim strDUNName As String
strDUNName = InputBox("Ange fjärranslutning.")
If DisconnectDUN(strDUNName) = True Then
MsgBox "Nedkopplingen lyckades"
Else
MsgBox "Kan inte koppla ned!"
End If
End
End Sub

Function DisconnectDUN(DUNName As String) As Boolean
On Error GoTo errhandler
AppActivate "Ansluter till " & DUNName 'Sätter fokus på fjärranslutningsfönstret
SendKeys "c" 'Klicka på koppla-från-knappen
DisconnectDUN = True 'Funktionen lyckades
errhandler:
End Function