I did this too, except I created an array with all my values. Sample below.
Dim LetterArray : LetterArray = Array("[0-9]", "A", "B", "C", "D", "E", "F", "G", "H", "I",
"J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
For i = 0 to UBound(LetterArray)
strSql = strSql & "WHERE T.T_SUBJECT LIKE '" & LetterArray(i) & "%' ORDER BY T.T_SUBJECT ASC"
Next
Shows you the posibilities.<