Class Win32
 
    <StructLayout(LayoutKind.Sequential, Pack:=4, CharSet:=CharSet.Auto)> _
    Public Structure RASCONN
        Public dwSize As Integer
        Public hRasCon As IntPtr
        <MarshalAs(UnmanagedType.ByValTStr, sizeconst:=257)> Public _
          szEntryname As String
        <MarshalAs(UnmanagedType.ByValTStr, sizeconst:=17)> Public _
        szDeviceType As String
        <MarshalAs(UnmanagedType.ByValTStr, sizeconst:=129)> Public _
        szDeviceName As String
    End Structure
 
    Public Shared Function EnumRas() As RASCONN()
        Dim structtype As Type = GetType(RASCONN)
        Dim structsize As Integer = Marshal.SizeOf(structtype)
        Dim maxcount As Integer = 32 ' Max RasConns
        Dim bufsize As Integer = maxcount * structsize
        Dim realcount As Integer = 0
        Dim TRasCon As RASCONN() = {}
        Dim bufptr As IntPtr = Marshal.AllocHGlobal(bufsize)
        Marshal.WriteInt32(bufptr, 0, structsize)
        Dim retcode As Integer = RasEnumConnections(bufptr, bufsize, realcount)
        If (retcode = 0) And (realcount > 0) Then
            ReDim TRasCon(realcount - 1)
            Dim i As Integer
            Dim runptr As IntPtr = bufptr
            For i = 0 To (realcount - 1)
                TRasCon(i) = CType(Marshal.PtrToStructure(runptr, structtype), _
                RASCONN)
                runptr = New IntPtr(runptr.ToInt32 + structsize)
            Next
        End If
        Marshal.FreeHGlobal(bufptr)
        Return TRasCon
    End Function
 
End Class

        Dim x() As Win32.RASCONN = Win32.EnumRas()
        If x.Length > 0 Then
            MsgBox(x(0).szDeviceName)
            MsgBox(x(0).szDeviceType)
            MsgBox(x(0).szEntryname)
        End If