[FUNCION] IsUnicode (Determina si una cadena es unicode o no)

Private Function IsUnicode(Expression As String) As String
'by 79137913
    Dim b() As Byte 'Se crea un array de bytes para almacenar el string
    Dim Aux As String 'se usara para comparar
    b = Expression 'se usa un evil type convert para obtener todos los ascii de los caracteres de la expresion en las posiciones del array
    For x = 0 To UBound(b) Step 2
        Aux = Aux & Chr(b(x)) 'reconstruimos la expresion
    Next
    IsUnicode = (Expression <> Aux) 'asignamos a IsUnicode el resultado de la comparacion
    'Si Expression es = a aux dara Falso por que Expression es totalmente Ascii, sino dara Verdadero por que contiene algun caracter Unicode.
End Function