Function f2&()
  Const N& = 20 'заданная длина строки
  
  Dim strIN$, strOUT$, s$
  Dim k&
  
  'просим у ползователя строку
  strIN = InputBox("Введите строку длиной " & N & " символов", , Left$("АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩ", N))
  
  ' "обрезаем" полученную строку до заданной длины
  strIN = Left$(strIN, N)
  
  ' проверяем, достаточна ли была длина введённой строки
  k = Len(strIN)
  If k < N Then MsgBox "исходная строка маловата!", vbCritical: Exit Function
     
  ' меняем первый и последний символы местами
  strOUT = Right$(strIN, 1) & Mid(strIN, 2, k - 2) & Left$(strIN, 1)
  
  ' меняем третий и десятый символы местами
  s = Mid$(strOUT, 3, 1)
  Mid$(strOUT, 3, 1) = Mid$(strOUT, 10, 1)
  Mid$(strOUT, 10, 1) = s
  
  ' показываем, что получилось
  MsgBox "исходная строка:     '" & strIN & "'" & vbCrLf & "измененная строка: '" & strOUT & "'"
End Function