Из символов одного текста получить другой текст - VB

Формулировка задачи:

Из символов одного текста с помощью строковых функций и операции конкатенация получить другой текст. Из "алгоритм" получит "гора" и "литр". С кнопкой, вводом "алгоритм" и текстбоксами.

Решение задачи: «Из символов одного текста получить другой текст»

textual
                            Листинг программы 
                        

                            Option Explicit
Option Compare Text
Private Sub Command1_Click()
     Dim Arr, w As String: w = Trim$(Text1.Text)
     Dim i As Long, j As Long, n As Long, s As String, lt As String
     Dim ff As Long: ff = FreeFile
     Open App.Path & "\Dictionary.txt" For Input As #ff
         Arr = Split(Input(LOF(ff), ff), vbCrLf)
     Close #ff
     For i = 0 To UBound(Arr)
         s = w: n = Len(Arr(i))
         If n >= 4 Then
              For j = 1 To n
                 lt = Mid(Arr(i), j, 1)
                 If InStr(s, lt) > 0 Then s = Replace$(s, lt, "*", 1, 1) Else GoTo m
              Next j
              Text2.Text = Text2.Text & Arr(i) & vbCrLf
         End If
m:
     Next i
End Sub
                        