Присвоить переменной результат вычисления формулы в ячейке

sub ChangeValueOfRange
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$13"
 
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
 
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "=E6"
 
Dim strA As String, strB As String, strMsg As String
strA = args1(0).Value
strB = args2(0).Value
strMsg = MsgBox(strA & " " & strB, vbOKOnly, "Окошко")
 
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
 
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
 
 
end sub

Dim s As Integer
Dim d As Integer
 
s = Cells(3, 3) ' значение ячейки C3 присвоено переменнной
d = Cells(3, 4) ' значение ячейки D3 присвоено переменнной
 
Cells(4, 6) = s + d ' ячейки F4 присвоенa сумма переменных