Dim S As Long, LN As Long, X As Integer
Dim ConName As String, R(255) As RASENTRYNAME95
    R(0).dwSize = 264
    S = 256 * R(0).dwSize
    Call RasEnumEntries(vbNullString, vbNullString, VarPtr(R(0)), S, LN)
    For X = 0 To LN - 1
        ConName = StrConv(R(X).szEntryName(), vbUnicode)
        Combo6.AddItem Left$(ConName, InStr(ConName, vbNullChar) - 1)
    Next X