Замена символов на звездочки - VB

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

Вот такое задание получила, не могу понять как это сделать.. Запрашивается у пользователя слово (не менее 5 символов) и выдается в окне откладки это слово: символы между первой и последней буквы заменяются на звездочки. Ну например, вводишь:слово "проблема" а выдается "п******а". Может кто-нибудь помочь? Очень нужно!

Решение задачи: «Замена символов на звездочки»

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

                            Function p$(Optional S$ = "проблема")
  p = Left(S, 1) & String(Len(S) - 2, "*") & Right(S, 1)
End Function
                        