' Function prototype for RasEnumEntries
Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias _
  "RasEnumEntriesA" ( _
            ByVal Reserved As String, _
            ByVal szPhoneBook As String, _
            lpRasEntries As Any, _
            lpcb As Long, _
            lpcEntries As Long) As Long
 
Private Type RASENTRYNAME95
  dwSize As Long
  szEntryName(256) As Byte
End Type
 
Public Function GetRASServices() As Variant
  Dim s As Long, ln As Long, conname As String, i As Long
  Dim r(255) As RASENTRYNAME95
  Dim ret As Variant
 
  r(0).dwSize = 264
  s = 256 * r(0).dwSize
  Call RasEnumEntries(vbNullString, vbNullString, r(0), s, ln)
 
  If ln <= 0 Then Exit Function
 
  ReDim ret(ln - 1)
  For i = 0 To ln - 1
    conname = StrConv(r(i).szEntryName(), vbUnicode)
    ret(i) = Left$(conname, InStr(conname, vbNullChar) - 1)
  Next i
 
  GetRASServices = ret
 
End Function