Как вычислить длину окружности с точностью до тысячных

Sub Длина_окружности()
Dim R As Single, L As Single
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
     
    R = 50 + 50 * Rnd 'беру радиус от 50 до 100: иначе не вписать внутрь
     
    ActiveSheet.Shapes.AddShape(msoShapeOval, 60, 60, R, R).Select
    
    With Selection.ShapeRange
        .Fill.Visible = msoTrue
        .Fill.Transparency = 1
        .Line.Weight = 1
        .Line.DashStyle = msoLineSolid
        .Line.Style = msoLineSingle
        .Line.Visible = msoTrue
    End With
     
    L = 2 * WorksheetFunction.Pi * R 'длина окружности с точностью Single
    
    MsgBox FormatNumber(L, 3) 'длина окружности с точностью до тысячных
'To be continued...
End Sub

Sub Oкружность_с_ингредиентами()
Dim R As Single, L As Single
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
     
    R = 60 + 40 * Rnd 'берём радиус от 60 до 100: иначе надпись (так просто) не вписать
     
    ActiveSheet.Shapes.AddShape(msoShapeOval, 60, 60, R, R).Select
    L = 2 * WorksheetFunction.Pi * R 'длина окружности с точностью as Single
    
    With Selection                         'работаем с выделенной фигурой
        .ShapeRange.Fill.Transparency = 1  'круг прозрачен на 100%
        .ShapeRange.Line.Visible = True    'линия видна
        .Text = "L = " & FormatNumber(L, 3) & Chr(10) & "R = " & FormatNumber(R, 1)
    End With
End Sub

Sub Oêðóæíîñòü_ñ_èíãðåäèåíòàìè()
    Dim R As Single, L As Single
    Dim sh As Shape
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
    Do
        R = CSng(InputBox("Ââåäèòå ðàäèóñ îò 40 äî 100"))
        If R > 39 And R < 101 Then Exit Do
    Loop
    ActiveSheet.Shapes.AddShape(msoShapeOval, 40, 40, 2 * R, 2 * R).Select
    L = 2 * WorksheetFunction.Pi * R 'äëèíà îêðóæíîñòè ñ òî÷íîñòüþ as Single
    
    With Selection                        'ðàáîòàåì ñ âûäåëåííîé ôèãóðîé
        .ShapeRange.Fill.Transparency = 1  'êðóã ïðîçðà÷åí íà 100%
        .ShapeRange.Line.Visible = True    'ëèíèÿ âèäíà
        .Text = "R=" & R & Chr(10) & "L=" & FormatNumber(L, 3)
        .Characters.Font.ColorIndex = 0
        .Characters.Font.Size = IIf(R < 50, 10, 12)
     End With
End Sub

Sub Oкружность_с_вызовом()
    Dim R, L As Single
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
    
    Do
again:
        R = InputBox("Радиус, от 10 до 100:", "Ввод радиуса окружности", 25 + 75 * Rnd)
        If R = Empty Then MsgBox "Ну и до свиданья!": Exit Sub
        If Not IsNumeric(R) Then R = "": GoTo again 'если введено не число — опять ввод
    Loop Until R >= 25 And R <= 100
    
    ActiveSheet.Shapes.AddShape(msoShapeOval, 100 - R, 100 - R, 2 * R, 2 * R).Select
    L = 2 * WorksheetFunction.Pi * R 'длина окружности с точностью as Single
    
    With Selection                        'работаем с выделенной фигурой
        .ShapeRange.Fill.Transparency = 1  'круг прозрачен на 100%
        .ShapeRange.Line.Visible = True    'линия видна
        .Text = "R = " & R & Chr(10) & "L = " & FormatNumber(L, 3) '3 знака после «,»
        .Characters.Font.Size = IIf(R < 30, 8, IIf(R < 50, 12, 16))
     End With
End Sub