Esta funcion tal vez le sirva a alguien es como la de IsNumeric que te devuelve true o false si alguna expresion es numerica o no


Esta funcion te dice si cierto caracter es igual a otro, la ventaja es que le puedes cargar una cadena, y pones el caracter que necesitas que comparecon cada uno de la cadena, puedes diferenciar entre mayusculas o minusculas, y tambien puedes espceificar la posicion dandote la oportunidad de hacer unciclo mas facilmente, ademas puedes trabajar con numeros, letras, signos, etc


ahi va ojala y le sirva a alguien, y a jonki que puso la idea


Function Es_Igual(sVar As String, sCom As String, Optional iPos As Integer = 1, Optional bDifLet As Boolean = False) As Boolean
'sVar va a ser la letra acomparar
'sCom es la letra que quieres que se compare
'iPos es para que puedas hacer un ciclo dentro de la cadena sVar o buscar en un lugar especifico
'bDifLet es para si hace exacta la busqueda de caracteres (A = A= o si puede hacerla diferida(A = a)


Dim iNumCar As Integer 'Checa la longitud de la cadena
Dim sCar ' El caracter a comparar en la llamada
sCom = Left$(sCom, 1) 'Si alguien pone mas caracteres de los debidos pues solo toma el primero como valido


iNumCar = Len(sVar)


iPos = Abs(iPos) ' Aqui es para quitarle el signo de menos por si lo tiene


If iPos > Len(sVar) Then ' Aqui si la posicion es mayor que la longitud de sVar entonces la cambia automaticamente a la longitud de sVar para evitar errores
iPos = Len(sVar)
End If


Es_Igual = False


If iPos = 0 Then 'Si el valor es cero se supone que seria la primera posicion tonses se pone 1
iPos = iPos + 1
End If


sCar = Mid$(sVar, iPos, 1) ' Aqui se extrae el caracter de la cadena para poder hacer la comparacion


If bDifLet = True Then 'Checa si hace diferencia entre mayusculas y minusculas
If sCar = sCom Then 'Aqui hace la comparacion (A = a)
Es_Igual = True
End If
Else
If UCase(sCar) = UCase(sCom) Then 'Aqui hace la comparacion (A=A)
Es_Igual = True
End If
End If
End Function


y ahi va el ejemplode como llamar la funcion


Private Sub Form_Load()
MsgBox Es_Igual("XYZ", "y", 2, True) 'Devuelve Falso
MsgBox Es_Igual("XYZ", "y", 2, False) 'Devuelve Verdadero
End Sub





Correcciones o algo posteen, me dan ganas de que acepte el cod ansii pero a ver si programo o a ver si alguien lo quiere hacer