How to substitute value in VB code from a list of declared values in a list and loop through the code

Question

I have some old vb code which uses some financial libraries to generate technical indicators values (japanese candlestick patterns) for stocks in a table in SQL server. It looks