DotRas用Windows 7创建VPN

Question

我有以下代码，我想获得一些我需要设置的设置的VPN：

我需要的是

Public Function MyXIRR(Dates As Range, Trans As Range, Balance As Double)
    Dim i As Integer
    Dim x As Double
    Dim dateArray() As Date
    Dim dateStrings() As String
    Dim valArray() As Double

    ReDim dateArray(Dates.Count)
    ReDim valArray(Trans.Count)
    ReDim dateStrings(Dates.Count)

    For i = 1 To Dates.Count
        dateArray(i - 1) = Dates.Item(i).Value
        Next i

    For i = 1 To Trans.Count
        valArray(i - 1) = Trans.Item(i).Value
        Next i

    dateArray(Dates.Count) = DateAdd("d", 1, Dates.Item(Dates.Count))
    valArray(Trans.Count) = -1 * Balance

    For i = 0 To Dates.Count
        dateStrings(i) = Format(dateArray(i), "mm/dd/yyyy")
        Next i

    MyXIRR = Application.WorksheetFunction.Xirr(valArray, dateStrings, 0.01)
End Function

当我运行此代码时，它会创建VPN，但不会保留我想要设置的设置，例如：RequirePap = true;

Configuration as I need it to be