Calcul hexadecimal SVP

bonjour,
je suis un vrai débutant (vrai de vrai..) et j'ai récupéré un classeur excel avec un code VBA (pas moi qui l'ai fait) pour une petite opération mathématique.
je me suis mis en tête de faire un petit .exe pour faire ce calcul ! mais j'ai découvert que à priori le code VBA n'est pas tout à fait comme le VB, et bien sûr comme je ne connais rien, je suis bloqué directement :?

l'idée c'est une valeur hexadecimale (exemple "E6") à convertir en bytes, inverser les bytes, inverser l'ordre de lecture des 2, et reconvertir en hexa
(le calcul est bytes par bytes car c'est E qui devient 7 et 6 devient 6, puis c'est inversé dans la lecture, ce qui donne un résultat de "67")
je peux donner le détail si besoin

le code VBA du classeur excel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   Sub Test() MsgBox "RevBits(&H" & Hex(&HE6) & ") = &H" & Hex(RevBits(&HE6)) End Sub   Function RevBits(ByVal X As Byte) As Byte Dim P%: For P = 0 To 7 If X And 2 ^ P Then RevBits = RevBits Or 2 ^ (7 - P) Next P End Function

---

alors voilà j'aimerai rentrer dans la valeur hexa dans la textbox1 par exemple, et que le résultat s'affiche dans la textbox2 après appui un le bouton, si quelqu'un peut me convertir ce code ce serait sympa !!
(et si j'ai bien compris, ce code il faut l'insérer dans la partie code du bouton ?)
merci d'avance !

help !
je n'arrive pas à convertir la fonction VBA en VB...

du coup j'ai essayé de repartir sur une nouvelle conversion "étape par étape", j'ai réussi à convertir en binaire c'est tout, mais après pour faire le reste, les inversions etc 8O8O

le code qui fonctionne pour le binaire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = Hex2Bin(TextBox1.Text)   End Sub Private Function Hex2Bin(ByVal hex As String) As String Dim i As Byte Dim resultat As String For i = 1 To Len(hex) Select Case Mid(hex, i, 1) Case "0" : resultat = resultat & "0000" Case "1" : resultat = resultat & "0001" Case "2" : resultat = resultat & "0010" Case "3" : resultat = resultat & "0011" Case "4" : resultat = resultat & "0100" Case "5" : resultat = resultat & "0101" Case "6" : resultat = resultat & "0110" Case "7" : resultat = resultat & "0111" Case "8" : resultat = resultat & "1000" Case "9" : resultat = resultat & "1001" Case "A" : resultat = resultat & "1010" Case "B" : resultat = resultat & "1011" Case "C" : resultat = resultat & "1100" Case "D" : resultat = resultat & "1101" Case "E" : resultat = resultat & "1110" Case "F" : resultat = resultat & "1111" End Select Next i Hex2Bin = resultat End Function

---

donc quand je met "E6" dans la textbox 1 j'ai bien le résultat "11100110" dans la textbox2
mais là ensuite faudrait lire à l'envers les 2 calculs:
1110 devient 0111
et
0110 devient 0110 (oui forcement pour cet exemple lire à l'envers ça change rien pour celui ci)
ce qui ferait :
0111 0110
et puis inverser la position des 2 conversions:
0110 0111

au finale le résulat est 01100111 qu'il faut re-convertir en hexadecimal = 67
SVP quelqu'un sais faire ça ?
merci d'avance

----------------

EDIT : c'est bon j'ai trouvé tout seul
merci à moi même lol