Get Wisdom - Visual Basically Speaking

Some may recognize the following snippet as Visual Basic code. I recommend first reading Proverbs 2:1-5 if it doesn't make sense to you:

Public Sub GetWisdom()

Dim iCount as Integer
Dim Flag as Boolean

With You
    For iCount = 1 to 8
        Select Case iCount
        Case 1
            Flag = .Accept(What:= "My Words")
        Case 2
            Flag = .StoreUp(What:= "My Commands", _
                Where:="Within You")
        Case 3
            Flag = .Turn(What:= "Your Ear", _
                Where:= "To Wisdom")
        Case 4
            Flag = .Apply(What:= "Your Heart", _
                Where:= "To Understanding")
        Case 5
            Flag = .Call(Where:= "Out", _
                What:= "For Wisdom")
        Case 6
            Flag = .Cry(How:= "Aloud", _
                What:= "Understanding")
        Case 7
            Flag = .LookFor(What:= "Wisdom", _
                How:="Like Silver")
        Case 8
            Flag = .SearchFor(What:= "Wisdom", _
                How:="Hidden Treasure")
        End Select  
    Next iCount

    If Flag = True Then
        .FearOfTheLord.Understood = True
        .KnowledgeOfGod.Found = True
    End If
End With

End Sub

This procedure should be run as often as possible.