Copy String from Calc Cell [Solved]

[macroman]

Hi there,

I seem to be having trouble copying a string from a calc cell.
Every time I try to paste the copied information into a writer doc, it pastes the entire cell rather than just the text.
Here is a code snippet, all terms have been defined and Frame and Frame2 are the Writer doc and Calc doc respectively.

InfoCell = CalcDoc.Sheets(2).getCellbyPosition(2, 3)
Info = InfoCell.String
CalcDoc.CurrentController.Select(Info)
dispatcher.executeDispatch(Frame2, ".uno:Copy", "", 0, Array())
dispatcher.executeDispatch(Frame, ".uno:Paste", "", 0, Array())

[macroman]

Frame = WriterDoc.CurrentController.Frame
Frame2 = CalcDoc.CurrentController.Frame

  dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "ToPoint"
  args1(0).Value = "$C$4"
  dispatcher.executeDispatch(Frame2, ".uno:GoToCell", "", 0, args1())
  dispatcher.executeDispatch(Frame2, ".uno:Copy", "", 0, Array())

  dim args2(0) as new com.sun.star.beans.PropertyValue
  args2(0).Name = "SelectedFormat"
  args2(0).Value = 10
  dispatcher.executeDispatch(Frame, ".uno:ClipboardFormatItems", "", 0, args2())