Optimize this!!!!

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!

try...

VB Code:

If strTempo Like "[A-Z]" Or strTempo Like "[a-z]" Then
 '...
End If

:)

VB Code:

If strTempo Like "[A-Z]" Or strTempo Like "[a-z]" Then MsgBox "ALPHA!"

EDIT: or you could use crptcbalde's code. :rolleyes:

Another way...

VB Code:

If ASC(Ucase$(strTempo)) >= A AND ASC(Ucase$(strTempo)) <= 90 Then
        TrouverProchainAlpha = i - 1
        Exit Function
End If

Thank you guys!!:) :) :)

ASC(Ucase$(strTempo)) >= A :confused:

Well, I see where you were going anyway.

Sorry.... I was still pressing the Alt-Key (to check the number)

VB Code:

If ASC(Ucase$(strTempo)) >= 65 AND ASC(Ucase$(strTempo)) <= 90 Then
        TrouverProchainAlpha = i - 1
        Exit Function
End If

or

VB Code:

If UCase$(strTempo) >= "A" And UCase$(strTempo) <= "Z" Then
        TrouverProchainAlpha = i - 1
        Exit Function
End If

Use constants: vbKeyA, vbKeyZ.
Store Asc(UCase$(strTemp) in a variable so you don't have to Asc and UCase$ it twice.

VB Code:

Dim charCode As Integer
    
    charCode = Asc(UCase$(strTempo))
    If vbKeyA <= charCode And charCode <= vbKeyZ Then
        TrouverProchainAlpha = i - 1
        Exit Sub
    End If

By the way, don't ever code like you did when asking the question--checkerboard patterns are not for code ;). If you ever need to check a ton of values like that, line up the code more neatly.