Função de Folha de Cálculo SUM()

Ao clicar-se no Botão de comando,

aparece o resultado em C1, que é a soma de B1:B10:

O Código em VBE, é:

Private Sub CommandButton1_Click()
Dim myRange As Range
Dim Var1 As Long

Set myRange = Worksheets("Sheet1").Range("B1:B10")
Var1 = Application.WorksheetFunction.Sum(myRange)
Range("C1") = Var1
End Sub