I need how to assign cell values to variables with macros [closed]

edit

I wrote myself a test

Sub GetCellValueTest
   Dim Sheet
   Dim D2
   Dim F5
   Dim C4
   Dim RtnCode As Integer

   rem assign a tab (sheet)
   Sheet = thiscomponent.sheets.getByName("Jump Log")

   rem get the position of "$D$2"
   D2 = Sheet.getCellRangeByName( "$D$2" )

   rem print oCell.value, oCell.string, oCell.formula, oCell.FormulaLocal, oCell.Error
   print D2.string, D2.value


   rem get the position of "$F$5"
   F5 = Sheet.getCellRangeByName("$F$5")

   rem write D2's string value to F5's position
   F5.setString( D2.string + " abc" )

   rem re-get "$F$2" after is hasw been overwritten
   F5 = Sheet.getCellRangeByName("$F$5")
   RtnCode = MsgBox( F5.string + "    ", 0, "Cell Value" )

   C4 =  Sheet.getCellRangeByName("$C$4")
   RtnCode = MsgBox( C4.string + "    ", 0, "Oh No!" )

End Sub