Programación: Ánagrama con las letras de una palabra

Buenas noches, esto es lo que encontré. No puse comentarios, espero que lo entiendas ^^

Option Strict On
Option Explicit On

Module Module1

Sub Main()
Console.WriteLine("Entrar una palabra")
Dim nombre As String
nombre = Console.ReadLine()

Dim vNom As String

Console.WriteLine("Entrar una palabra")
Dim nombre2 As String
nombre2 = Console.ReadLine()

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

Console.ReadLine()

'si el usuario escribe exit muestra el arreglo
Console.WriteLine("Tipea Exit para salir o introduce otro nombre")
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

¡Probé rápido y era justo lo que buscaba! Muchas gracias, en cuanto a analizar el código todavía no lo he desglosado, pero gracias Yel00wStar.