Imports System
Imports System.IO
Imports Excel = Microsoft.Office.Interop.Excel
Imports Workbook = Microsoft.Office.Interop.Excel.Workbook
 
 
......
 
ExcelDatei = Speicherort & Formname
 
Dim exApp As Excel.Application = New Excel.Application()
Dim exwb As Excel.Workbook
Dim exsh As Excel.Worksheet
Dim exrng As Excel.Range
 
  With exApp
 
    .Visible = True
 
     exwb = .Workbooks.Open(ExcelDatei)
     exsh = exwb.Sheets("Form")
 
     If LineAdr <> "" Then   'LineAdr=Zelle (z.B. M7), in der die Info 
     ' geschrieben werden soll
           exrng = exsh.Range(LineAdr)
           exrng.Value = Start.TextBox1.Text
     End If
 
  End With
 
exApp = Nothing