I am trying to use a get text from a program and put in Excel. I dimmed my get text and created a msgbox to show that I am actually capturing the right number, but I can not get it into excel with a sendkey command. I am very new at this and I know it is probably very easy to do, can you help?

Why do you use SendKeys?
Try work directly with Excel library.

First check the refference to Excel Object Library
Then try something like this code

Public Sub OpenExcel()
Dim objExcelApp As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objSheet As Excel.Worksheet

  Set objExcelApp = New Excel.Application
  'if you want open existing workbook
  Set objWorkbook = objExcelApp.Workbooks.Open("<filename_with_path>")
  'or if you want create new workbook
  Set objWorkbook = objExcelApp.Workbooks.Add
  objWorkbook.Name = "yourname"

  'set current working sheet
  set objSheet = objWorkbook.Worksheets(<sheet_number or sheet_name>)

  'do what you need
  objSheet.Cells(Row, Column).Value = "your_value"
  ...

  'save your work
  objWorkbook.Save

  Set objSheet = Nothing
  Set objWorkbook = Nothing
  Set objExcelApp = Nothing

End Sub

Peko

I tried this and I get subscript out of range error message on the following line.

Set objSheet = objWorkbook.Worksheets(sheet1)

Use parenthesis.
Set objSheet = objWorkbook.Worksheets("sheet1")

Peko