Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range

' エクセル起動
oXL = CreateObject("Excel.Application")
oXL.Visible = True

' エクセルのファイルを読み込み、シート１を指定
oWB = oXL.Workbooks.Open("c:\mitsumori.xls")
oSheet = oWB.ActiveSheet
Dim tb1 As Object = TextBox1
Dim tb2 As Object = TextBox2
Dim tb3 As Object = TextBox3
Dim cb1 As Object = ComboBox1
Dim tb4 As Object = TextBox4

' セル挿入(タイトル)＞挿入位置を変更する
REM 1行目
oSheet.Cells(34, Kou).Value = tb1　'ここでコケる
oSheet.Cells(34, Itemname).Value = tb2
oSheet.Cells(34, Qua).Value = tb3
oSheet.Cells(34, Unit).Value = cb1
oSheet.Cells(34, Cost).Value = tb4