Сокращение после запятой

[SAS888]

А вообще, чтобы не заморачиваться на "точках" и "запятых", давайте решим Вашу задачу чисто математически. Например, так:

Sub Var_2()

    Dim Cell As Range, A As Long, x As Integer
    
    x = Val(InputBox("Number after comma"))
    If x = 0 Then
        MsgBox "Недопустимое значение"
        Exit Sub
    End If
    
    For Each Cell In Selection
        If Val(Cell.Value) = 0 Then GoTo Metka
        A = Fix(Application.Round(Cell.Value, 10) * 10 ^ x)
        If Right(A, 1) > 3 Then
            Cell.Value = Fix((A + 10) / 10) / 10 ^ (x - 1)
        Else
            Cell.Value = Fix(A / 10) / 10 ^ (x - 1)
        End If
Metka: Next Cell
    
End Sub

Здесь я не рассматривал отрицательные числа. Это нужно?

[Romuald]

SAS888
Спасибо большое!
Вам спасибо от работников нашего предприятия !