Дана числовая последовательность. Подсчитать сумму с точностью 0,000001 - VB

Private Sub Command1_Click()
    Dim n As Long, x As Double, sum As Double, e As Double
    e = 0.000001
    n = 1
    Do
        x = 1 / (n * (n + 3))
        sum = sum + x
        n = n + 1
    Loop Until Abs(x) <= e
    MsgBox sum
End Sub