Thursday, July 14, 2005

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.

No comments: