Public Function CreateFile(ByVal sFile As String) As Boolean
 
        ' Existiert die Datei schon?
        If Not File.Exists(sFile) Then
            Dim obj_Excel As Object = CreateObject("Excel.Application")
            Dim wkb_Excel As Object = obj_Excel.Workbooks.Add
            wkb_Excel.SaveAs(sFile)
            wkb_Excel.Close()
            wkb_Excel = Nothing
            obj_Excel.Quit()
            obj_Excel = Nothing
            Return True
        Else
            MsgBox("Die Datei existiert bereits!" & vbCrLf & "Der Vorgang wird" & _
              "abgebrochen.", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, _
              "Fehler: Datei erstellen")
            Return False
        End If
 
    End Function