ник: час
проще,
но в эту функцу из всех уголков попадаем
и какая сейчас активна - точно не знаем.
Вот башку и ломаем
Function Mesages(Soo As String) As String
Mesages_String = Soo & "..." & Mesages_String
Mesages = Mesages_String
Dim frmCurrentForm As Form
Dim nCnt As Long
Set frmCurrentForm = Screen.ActiveForm
For nCnt = 1 To Screen.ActiveForm.ControlCount
If Screen.ActiveForm.Controls(nCnt).Name = "MSG" Then
Screen.ActiveForm.Controls(nCnt).Value = Mesages_String
End If
Next nCnt