Tenho uma função que verifica a primeira letra do lado direito da palavra, gostaria de estendê-la para todas as letras do alfab eto e números mas a função fica muito complicada.

 

dim x as string

if right(file,1) = a then x = true
if right(file,1) = b then x = true
if right(file,1) = c then x = true
if right(file,1) = d then x = true
if right(file,1) = e then x = true
if right(file,1) = f then x = true
if right(file,1) = g then x = true

 

 

Olá! Você pode fazer assim.

 

Dim MaxChar As Integer, x As Boolean

MaxChar = Asc(UCase(Right(file, 1)))
If MaxChar >= 65 And MaxChar <= 90 Then x = True

 

Só um aviso, não sei se percebeu, mas você está declarando x como String e definindo o valor como Boolean.

 

Abraço!

Esta va usando outra mas a sua parece ser mais simples, e tem o mesmo efeito

 

Dim mtzTeste As Variant
Dim strTeste As Variant
Dim i As Variant
Dim x As String
Dim y As String

strTeste = "a§A§b§B§c§C§d§D§e§E§f§F§g§G§h§H§i§I§j§J§l§L§m§M§n§N§o§O§p§P§q§Q§r§R§s§S§t§T§u§U§v§V§x§X§z§Z§y§Y§w§W§k§K"
mtzTeste = Split(strTeste, "§")
Do While i = UBound(mtzTeste)
    If Right(x, 1) = mtzTeste(i) Then GoTo 10
    i = i + 1
Loop

10 Exit Sub