"Contest" for elegancy.

Just for the glory:

¿Is there a more elegant way to rewrite this ugly code?

Code:

---

        If Cambios And CambioArchPalmer Then
                TextoCambios &= String1
        End If
        If Cambios And CambioArchSPI Then
                TextoCambios &= String2
        End If
        If Cambios And CambioProcesar Then
                TextoCambios &= String3
        End If
        If Cambios And CambioProcesarPalmer Then
                TextoCambios &= String4
        End If
        If Cambios And CambioProcesarSPI Then
                TextoCambios &= String5
        End If
        If Cambios And CambioLatitud Then
                TextoCambios &= String6
        End If
        If Cambios And CambioLongitud Then
                TextoCambios &= String7
        End If
        If Cambios And CambioPathEjecutablePalmer Then
                TextoCambios &= String8
        End If
        If Cambios And CambioPathEjecutableSPI Then
                TextoCambios &= String9
        End If

---

The involved variables are:

Code:

---

        Public Cambios As Integer

        Public TextoCambios As String

        'The constants CambioXXX are binary flags, all different
        'Each one have only one bit different of zero
        Public Const CambioNinguno As Integer = 0
        Public Const CambioArchPalmer As Integer = 1 '1000000000000000
        Public Const CambioArchSPI As Integer = 2    '0100000000000000
        Public Const CambioProcesar As Integer = 4  '0010000000000000
        Public Const CambioProcesarPalmer As Integer = 8
        Public Const CambioProcesarSPI As Integer = 16
        Public Const CambioLatitud As Integer = 32
        Public Const CambioLongitud As Integer = 64
        Public Const CambioPathEjecutablePalmer As Integer = 128
        Public Const CambioPathEjecutableSPI As Integer = 256
        Public Const CambioNºDePuesto As Integer = 512
        Public Const CambioIsNothing As Integer = 1024

---

Cambios can have any integer value.
Intention of code is to detect if Cambios have the same bit equal than each CambiosXXX variable; In that case, a text is added to TextoCambios string.

For example, If Cambios = 3 ('1100000000000000)
then, since:
(Cambios And CambioArchPalmer) is true [1100000000000000 And 1000000000000000 = 1000000000000000] <> False
(Cambios And CambioArchSPI) is true [1100000000000000 And 0100000000000000 = 0100000000000000] <> False

must be:
TextoCambios &= String1 & String2