Excel VBA

Заполните ячейки Al, A2, A3 рабочего листа любыми вещественными
числами. Составьте программу, которая округлит эти числа до одного знака
после запятой, причем после запятой может быть только цифра 0 или 5
(например, 6,44 или 6,7134 программа заменит на 6,5; 6,21 или 5,789 на 6,0).

Возможно будет лучше приложить мой код

какой код?

Public Sub Округление()Dim Число As SingleDim Число2 As SingleЧисло = Range("A1")Число2 = (Число - Int(Число)) * 10MsgBox (Число2)Число2 = (Число2 - Int(Число2)) * 10MsgBox (Число2)If (Число2 >= 5) Then Range("A1") = (Int(Число) + 0.5)If (Число2 < 5) Then Range("A1") = (Int(Число))End Sub

блин,ну прости,так я не знаю если честно

Я Вас очень прошу! Если Вам не сложно....Помогите мне тоже, пожалуйста...( https://znanija.com/task/31209029

думаю что так, либо второе число нужно отделить два знака, а 3-е число три знака после запятой?