'Deklerationen
    Dim path As String = System.IO.Directory.GetCurrentDirectory & _
      "\XML2Excel.xlt"
    Dim objXls As New Excel.Application
    Dim xlsWS As New Excel.Worksheet
 
        xlsWS = objXls.ActiveSheet
        xlsWS.Range("a26").Value = "1"

mfg
rt