Programmation : Anagramme avec les lettre d'un mot

Bonsoir voila cet que j'ai trouvé je n'ais pas mis de commentaire j espère<code>< que tu comprendra ^^

Option Strict On
Option Explicit On

Module Module1

Sub Main()
Console.WriteLine("Entrer un mot")
Dim nombre As String
nombre = Console.ReadLine()

Dim vNom As String

Console.WriteLine("Entrer un mot")
Dim nombre2 As String
nombre2 = Console.ReadLine()

If FEstMemelettre(nombre, nombre2) = True Then
Console.WriteLine("annagrame !!!!")
Else
Console.WriteLine("pas annagrame !!!!")
End If

Console.ReadLine()

'si user ecrit exit affiche tableau
Console.WriteLine("Taper Exit pour sortie ou entrer un autre prenom")
vNom = Console.ReadLine()

If vNom <> "exit" Then

Main()
End If

End Sub

Function FEstMemelettre(chaine1 As String, chaine2 As String) As Boolean

Dim Aretourner As Boolean
Dim longeurMots As Integer = 0

If chaine1 = chaine2 Then
Return False
End If

Dim val1 As Integer
Dim val2 As Integer
Dim tempval2 As Integer
Dim tempval As Integer

For i = 1 To Len(chaine1)

val1 = Asc(UCase(Mid(chaine1, i, 1))) - 64
tempval = val1 + tempval

val2 = Asc(UCase(Mid(chaine2, i, 1))) - 64
tempval2 = val2 + tempval2
Next

If tempval = tempval2 Then

For i2 = 1 To Len(chaine1)

For i3 = 1 To Len(chaine2)

If Mid(chaine1, i3, 1) = Mid(chaine2, i2, 1) Then

longeurMots = longeurMots + 1

If longeurMots = Len(chaine1) And longeurMots = Len(chaine2) Then

Return True
Else
Aretourner = False
End If
Else

Aretourner = False
End If

Next
Next
End If
Aretourner = False

Return Aretourner

End Function

End Module

J'ai essayé vite fait et c'est ce que je recherchais ! Merci beaucoup, en revanche, je n'ai pas encore décortiquer le code, mais merci Yel00wStar !