There must be a way to optimize this code:
VB Code:
If strTempo = "a" Or strTempo = "b" Or strTempo _ = "c" Or strTempo = "d" Or strTempo = "e" _ Or strTempo = "f" Or strTempo = "g" Or strTempo _ = "h" Or strTempo = "i" Or strTempo = "j" Or _ strTempo = "k" Or strTempo = "l" Or strTempo = "m" _ Or strTempo = "n" Or strTempo = "o" Or strTempo _ = "p" Or strTempo = "q" Or strTempo = "r" Or _ strTempo = "s" Or strTempo = "t" Or strTempo = _ "u" Or strTempo = "v" Or strTempo = "w" Or _ strTempo = "x" Or strTempo = "y" _ Or strTempo = "z" Or strTempo = "A" Or strTempo = "B" Or strTempo _ = "C" Or strTempo = "D" Or strTempo = "E" _ Or strTempo = "F" Or strTempo = "G" Or strTempo _ = "H" Or strTempo = "I" Or strTempo = "J" Or _ strTempo = "K" Or strTempo = "L" Or strTempo = "M" _ Or strTempo = "N" Or strTempo = "O" Or strTempo _ = "P" Or strTempo = "Q" Or strTempo = "R" Or _ strTempo = "S" Or strTempo = "T" Or strTempo = _ "U" Or strTempo = "V" Or strTempo = "W" Or _ strTempo = "X" Or strTempo = "Y" _ Or strTempo = "Z" Then TrouverProchainAlpha = i - 1 Exit Function End If
Please help me!




Reply With Quote