There must be a way to optimize this code:
VB Code:
  1. If strTempo = "a" Or strTempo = "b" Or strTempo _
  2.             = "c" Or strTempo = "d" Or strTempo = "e" _
  3.             Or strTempo = "f" Or strTempo = "g" Or strTempo _
  4.             = "h" Or strTempo = "i" Or strTempo = "j" Or _
  5.             strTempo = "k" Or strTempo = "l" Or strTempo = "m" _
  6.             Or strTempo = "n" Or strTempo = "o" Or strTempo _
  7.             = "p" Or strTempo = "q" Or strTempo = "r" Or _
  8.             strTempo = "s" Or strTempo = "t" Or strTempo = _
  9.             "u" Or strTempo = "v" Or strTempo = "w" Or _
  10.             strTempo = "x" Or strTempo = "y" _
  11.             Or strTempo = "z" Or strTempo = "A" Or strTempo = "B" Or strTempo _
  12.             = "C" Or strTempo = "D" Or strTempo = "E" _
  13.             Or strTempo = "F" Or strTempo = "G" Or strTempo _
  14.             = "H" Or strTempo = "I" Or strTempo = "J" Or _
  15.             strTempo = "K" Or strTempo = "L" Or strTempo = "M" _
  16.             Or strTempo = "N" Or strTempo = "O" Or strTempo _
  17.             = "P" Or strTempo = "Q" Or strTempo = "R" Or _
  18.             strTempo = "S" Or strTempo = "T" Or strTempo = _
  19.             "U" Or strTempo = "V" Or strTempo = "W" Or _
  20.             strTempo = "X" Or strTempo = "Y" _
  21.             Or strTempo = "Z" Then
  22.                
  23.                 TrouverProchainAlpha = i - 1
  24.                 Exit Function
  25.         End If

Please help me!