Mis inicios en VB

Hola, voy a mostrar aquí mi primer mensaje para que veáis uno de mis primeros códigos.
Desde hace poco me lancé a la programación en Vb.net, y me estoy probando con el código.

Recientemente he codificado una pequeña aplicación que permite procesar dos cadenas de caracteres para verificar si coinciden como un anagrama.
La aplicación funciona muy bien, pero un amigo me dijo que el código era "bastante pobre": ¿alguna idea para mejorarlo?

 Option Explicit On Option Strict On Module Module1 Sub Main() Dim mot1, mot2 As String 'Se declaran dos variables que contendrán las palabras a probar Console.Clear() Console.WriteLine("Introduce dos nombres para ver si son anagramas") Console.WriteLine("O escribe 'exit' para salir de la consola") mot1 = Console.ReadLine() If mot1 = "exit" Then Exit Sub Else mot2 = Console.ReadLine() 'Se lanzará nuestra función para probar las palabras If f_is_anagram(mot1, mot2) Then Console.WriteLine("Sí, es un anagrama !") Else Console.WriteLine("No, no es un anagrama") End If Console.ReadLine() Main() End If End Sub Function f_is_anagram(ByVal mot1 As String, ByVal mot2 As String) As Boolean 'Se pasa por ByVal porque no modificamos los datos de las variables mot1 y mot2 'Se realiza una prueba de longitud de las palabras, si no tienen la misma longitud no pueden ser anagramas Dim motTemp As String = mot1 If mot1.Length <> mot2.Length Then Return False End If 'Se realiza una prueba que toma las letras del mot 1 para retirarlas del mot 2 For i = 0 To mot2.Length - 1 motTemp = f_erase(mot1, Mid(mot2, i + 1, 1)) mot1 = motTemp Next If motTemp.Length = 0 Then Return True Else Return False End If End Function 'Se pasa un texto y una letra y la función devuelve el texto con la letra eliminada si está presente Function f_erase(ByVal pTexte As String, ByVal pLettre As String) As String Dim i As Integer = 0 Dim texte As String = pTexte While i < pTexte.Length If Mid(pTexte, i + 1, 1) = pLettre Then Return texte.Remove(i, 1) End If i = i + 1 End While Return texte End Function End Module