Строки VBA

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

Доброго времени суток, нужна помощь в решении задач на строки в VBA: 1) Дан символ C, изображающий цифру или букву (латинскую или русскую). Если C изображает цифру, то вывести строку «digit», если латинскую букву — вывести строку «lat», если русскую — вывести строку «rus» 2) Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. Если совпадающих подстрок нет, то вывести строку S без изменений. 3) Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Преобразовать каждое слово в строке, заменив в нём все последующие вхождения его первой буквы на символ «.» (точка). Например, слово «МИНИМУМ» надо преобразовать в «МИНИ.У.». Количество пробелов между словами не изменять. Помогите пожалуйста, кто чем сможет, в строках я вообще полный ноль, засада кароче, заранее спасибо

Решение задачи: «Строки VBA»

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

                            Function Fun1(C)
  Select Case UCase$(C)
  Case "0" To "9":      Fun1 = "digit"
  Case "A" To "Z":      Fun1 = "lat"
  Case "А" To "Я", "Ё": Fun1 = "rus"
  Case Else:            Fun1 = "?"
  End Select
End Function
                        