Option Explicit
'1. Предусмотреть три варианта ввода: рукописный - с клавиатуры; вставка из буфера и указание ячейки Эксель.
'2. Однотипное поведение функции в каждом из этих трёх вариантов.
'3. При вводе не числа выдавать вразумительное сообщение непрерываясь.
'4. При перепутывании разделителя целой и дробной частей молча исправлять ошибку, также не прерываясь(возможны два варианта).
'5. При отсутствии в числе меньшем единицы впереди разделителя нуля, молча исправляет - добавляет перед разделителем ноль.

Public Function Округлить(ByVal варЗначение As Variant, ByVal варПогрешность As Variant, Optional ByVal стрПараметрВывода As String) As String
    Dim варВведённое As Variant
    Dim стрЧтоВведено As String
    
    варВведённое = варЗначение
    стрЧтоВведено = "Значение"
    Call ПроверкаПравильностиВвода(варВведённое, стрЧтоВведено)
    варВведённое = варПогрешность
    стрЧтоВведено = "Погрешность"
    Call ПроверкаПравильностиВвода(варВведённое, стрЧтоВведено)
    '...
    Округлить = " ± "
End Function

Private Sub ПроверкаПравильностиВвода(ByVal варВведённое As Variant, ByVal стрЧтоВведено As String)
    Dim стрТипВведённого As String
    Dim стрВведённое As String
    Dim цезПозицияТочки As Integer
    Dim стрВведённоеБезРазделителя As String
    Dim стрСообщение As String
    Dim целВсегоСимволовВоВведённом As Integer
    ' Пока написал лишь с предположением, что разделитель запятая - доработать и на точку! Недописано для ячейки!
    стрТипВведённого = TypeName(варВведённое) 'Первые четыре типа переменной варВведённое могут быть внесены вручную. _
                                                При вводе с таблицы, получаем тип - "Range".
    Select Case стрТипВведённого
    Case "String" 'Проверить, может перепутан лишь разделитель дробной части - вместо точки введена запятая.
        If InStr(стрВведённое, ".") <> 0 Then 'Определяем есть ли во введённом символ "точка" - "неправильный" разделитель целой и дробной частей.
            цезПозицияТочки = InStr(стрВведённое, ".") 'Определяем позицию разделителя.
            стрВведённоеБезРазделителя = Mid(стрВведённое, 1, цезПозицияТочки - 1) & Mid(стрВведённое, цезПозицияТочки + 1)
            If InStr(стрВведённоеБезРазделителя, ",") <> 0 Then 'Проверка на наличие второго разделителя.
                стрСообщение = "Во введённом - " & стрВведённое & ", как минимум, два разделителя: запятая и точка. Исправьте."
                MsgBox (стрСообщение)
            Else
                If IsNumeric(стрВведённоеБезРазделителя) Then 'Замена разделителя на правильный.
                    стрВведённое = Mid(стрВведённое, 1, цезПозицияТочки - 1) & "," & Mid(стрВведённое, цезПозицияТочки + 1)
                    варВведённое = CDbl(стрВведённое)
                 Else
                    стрСообщение = "Введённое - " & стрВведённое & " не число. Исправьте1."
                    MsgBox (стрСообщение)
                    End
                End If
            End If
         Else ' Во введённом нет точки.
            If Not (IsNumeric(стрВведённое)) Then
                стрСообщение = "Введённое - " & стрВведённое & " текст. Исправьте2."
                MsgBox (стрСообщение)
                End
            End If
        End If
    Case "Integer", "Long"
        ' Ничего не делаю.
    Case "Double"
    
    End Select
End Sub

Public Function Пример1(ByVal варЗначение As Variant, ByVal варПогрешность As Variant, Optional ByVal стрПараметрВывода As String)
    Dim стрЗаголовок As String
    Dim стрСообщение As String
    Dim стрОтклик As String
    
    стрЗаголовок = "Функция Пример"
    стрСообщение = "Вместо числа введено непонятно что. Исправьте."
    If Not IsNumeric(варПогрешность) Then
      Пример1 = CVErr(xlErrValue) '#ЗНАЧ!
    End If
End Function

Public Function Пример1(ByVal варЗначение As Variant, ByVal варПогрешность As Variant, Optional ByVal стрПараметрВывода As String)
    Dim стрЗаголовок As String
    Dim стрСообщение As String
    Dim стрОтклик As String
    
    стрЗаголовок = "Функция Пример"
    стрСообщение = "Вместо числа введено непонятно что. Исправьте."
    If Not IsNumeric(варПогрешность) Then
      Пример = CVErr(xlErrValue) '#ЗНАЧ!
    End If
End Function

Public Function Пример(ByVal варЗначение As Variant, ByVal варПогрешность As Variant, Optional ByVal стрПараметрВывода As String)
    Dim стрЗаголовок As String
    Dim стрСообщение As String
    Dim стрОтклик As String
    
    стрЗаголовок = "Функция Пример"
    стрСообщение = "Вместо числа введено непонятно что. Исправьте."
    If Not IsNumeric(варПогрешность) Then
        стрОтклик = MsgBox(стрСообщение, vbOKOnly, стрЗаголовок)
        End
    End If
End Function