Attribute VB_Name = "modCall"
Option Explicit

'調用求分位數的過程
Sub main()
    Dim x As Double, dblI As Double
    For dblI = 0.05 To 0.45 Step 0.05
        PNorm dblI, x
        Debug.Print "上側概率=", dblI, "分位數=", x
    Next dblI
End Sub