Type RASCONN
  dwSize As Long
  hRasConn As Long
  szEntryName(256) As Byte
  szDeviceType(16) As Byte
  szDeviceName(128) As Byte
End Type
 
Declare Function RasEnumConnectionsA Lib "RasApi32.DLL" _
  (lpRasConn As Any, lbcp As Long, lbcConnections As Long) _
  As Long
 
Dim lpRasConn(255) As RASCONN
Dim lpcConnections As Long
Dim lpcb As Long
Dim hRasConn As Long
Dim NameRasConn As String
Dim x As Integer
 
 
lpRasConn(0).dwSize = 412
lpcb = 256 * lpRasConn(0).dwSize
RasEnumConnectionsA lpRasConn(0), lpcb, lpcConnections
If lpcConnections < 1 Then
  'es besteht keine DFÜ-Verbindung
  MsgBox "Keine Internetverbidung", , "Error"
Else
MsgBox "Internetverbindung aktiv", , "Info"
  'es besteht mind. 1 DFÜ-Verbindung
  For x = 0 To lpcConnections - 1
    hRasConn = lpRasConn(x).hRasConn 'Handle der Verbindung
    NameRasConn = StrConv(lpRasConn(x).szEntryName, _
      vbUnicode)
    NameRasConn = Left$(NameRasConn, InStr(NameRasConn, _
      vbNullChar) - 1)
    Debug.Print NameRasConn & " ist aktiv."
  Next x
End If