El codigo lo ke te hace es guardarte letra por letra en un array que ya tienes declarado. Eso lo hace gracias a la funcion Mid y Len.
La funcion Len te dice en valor numerico la longitud de la cadena que le dices en el caso del ejemplo que te he puesto el Text1
La funcion Mid te da como resultado una porcion de la cadena que le digas Mid(cadena_que_queremos_partir, a_partir_del_caracter_x, numero_ de_caracteres)
En este trozo de codigo se juega cob la variable i que nos sirve para hacer el bucle for, marcar el caracter de la funcion Mid y marcar en que hueco del array queremos guardar el caracter.
Para compararlo haria otro bucle for con un pequeño if dentro ke te pase por todo el array.
variable = ""
j = 1
For j = 1 to UBound(Ahorcado)
If Text2.Text = Ahorcado(j) Then variable= "existe"
Next j