Даны два слова. Найдите только те символы слов, которые встречаются в обоих словах только один раз - QBasic

Function Cmp(S1 As String, S2 As String) As String
  L1% = Len(S1)
  If L1% = 0 Then
     Cmp = ""
  Else
     a1$ = Left$(S1, 1)
     If L1% - Len(Replace$(S1, a1$, "")) = 1 And _
        Len(S2) - Len(Replace$(S2, a1$, "")) = 1 Then
        Cmp = a1$ & Cmp(Mid$(S1, 2), S2)
     Else
        Cmp = Cmp(Mid$(S1, 2), S2)
     End If
  End If
End Function
 
Sub Tets()
    Debug.Print Cmp("Пробка", "Роба")  ' печать "оба"
End Sub