Imports Microsoft.Office.Interop
 
       Dim ExApp As New Excel.Application
 
       Try
 
             With ExApp
                      .Visible = True
                      .Workbooks.Add()           
                      .Range("B5").Value = TextBox1.Text         
             End With
 
        Catch ex As Exception
                    MessageBox.Show(ex.Message, "Fehler")
        End Try

fg viperbone