Excell- Visual-Basc, copy en Msg-box oprettet i exelll

Jeg har her under lagt et eksempel hvordan men overfører data mellem VB og Excel, håber det kan tænde et lys.

Option Explicit

Private Sub cmdAngle_Click()
  Dim x1 as Object
  \'Brug OLE Automatikken til at kreere et excel objekt
  Set x1 = CreateObject(\"Excel.Sheet\")
  \'Sætter de kendte værdier ind i cellerne
  x1.Range(\"A1\").Value = txtX.Text
  x1.Range(\"A2\").Value = txtY.Text
  \'Beregn tredje celle
  x1.Range(\"A3\").Formula = \"=ATAN2(A1, A2)\"
  x1.Range(\"A4\").Formula = \"=A3*180/PI()\"
  \'Viser resultat i en lbl kontrol
  lblRadians.Caption = x1.Range(\"A3\").Value
  lblDegrees.Caption = x1.Range(\"A4\").Value
  \'Tøm Hukommelse
  Set x1 = Nothing
End Sub