Function GetCorrectValue(strInput)
    Dim strOutput, strChar, intChar, i
    If IsNull(strInput) Then
        GetCorrectValue = "& nbsp;"  ' -пробел надо здесь убрать'
    Else
        strInput = Replace(strInput, Chr( 13 ) & Chr( 10 ), "<br>")

        strOutput = ""
        strChar = ""
        For i =  1  To Len(strInput)
            strChar = Mid(strInput, i,  1 )
            intChar = AscW(strChar)
            If intChar >  128  Then
                If intChar <  0  Then intChar =  2  ^  16  + intChar
                If intChar >=  1040  And intChar <=  1103  Then
                    strChar = ChrW(intChar -  848 )
                ElseIf intChar =  1025  Then
                    strChar = ChrW( 168 ) 'Ё'
                ElseIf intChar =  1105  Then
                    strChar = ChrW( 184 ) 'ё'
                Else
                    strChar = "?"
                End If
            End If
            strOutput = strOutput & strChar
        Next
        SetCorrect Value = strOutput
    End If
End Function