Придумал функцию для текстового поля, которая делает заглавной первую букву в текстовом поле:

Public Function CapitalLetter(text_value As String) As String ' делаем первую букву заглавной

text_value = UCase(Left(text_value, 1)) + LCase(Right(text_value, Len(text_value) — 1))

End Function
Функция будет использоваться на многих формах, поэтому она сделана public

На форме есть текстовое поле Form_f_Student.Surname

На загрузку формы делаю следующее:

Private Sub Form_Load()

Form_f_Student.Surname.Text = CapitalLetter(Form_f_Student.Surname.Text)

End Sub


При запуске дебага получаю сообщение, что невозможно обратиться к свойству или методу у которого не получен фокус.

Если я функцию привязываю к событию "изменение", то получаю сообщение о некорректном вызове функции или аргумента (invalid procedure call or argument)

Пробовал объявить локальную переменную для записи изменений в текстовом поле, но результат тот же...

Каким образом нужно засунуть функцию на форму, чтобы при вводе данных в текстовое поле оно обрабатывалось функцией?

Что можете мне посоветовать?
За любые советы буду премного благодарен