diff --git a/FWCreateCalendar/frmMain.vb b/FWCreateCalendar/frmMain.vb
index 5df7417..186fe99 100644
--- a/FWCreateCalendar/frmMain.vb
+++ b/FWCreateCalendar/frmMain.vb
@@ -273,8 +273,6 @@ Public Class frmMain
 
     Private Sub IcalNetTest(OutputFile As String)
         Dim calendar As New Ical.Net.Calendar
-        'calendar.AddTimeZone(New Ical.Net.CalendarComponents.VTimeZone("Europe/Berlin"))
-        'calendar.AddTimeZone(New Ical.Net.CalendarComponents.VTimeZone(General.Settings.DefaultTimezoneId))
         For Each evt As EventEntry In ds.Where(Function(e) e.IsInvalid = False AndAlso e.Exclude = False)
             calendar.Events.Add(New Ical.Net.CalendarComponents.CalendarEvent With {
                 .Start = New CalDateTime(evt.StartDate),
@@ -286,7 +284,8 @@ Public Class frmMain
         Next
 
         Dim serializer As New CalendarSerializer
-        Using sw As New StreamWriter(OutputFile, False, System.Text.Encoding.UTF8)
+        Dim utf8WithoutBom As New System.Text.UTF8Encoding(False)
+        Using sw As New StreamWriter(OutputFile, False, utf8WithoutBom) 'NICHT einfach System.Text.Encoding.UTF8 nehmen, da dann als UTF8-BOM gespeichert wird und der Import z.B. Bei Samsung/Android-Handys nicht funktioniert
             sw.Write(serializer.SerializeToString(calendar))
         End Using
 
@@ -324,4 +323,8 @@ Public Class frmMain
         xlsSheet.SelectedCell = activeSheet.Cells($"A{grdv.GetFocusedRowCellValue("RowIndex")}")
         activeSheet.ScrollTo(activeSheet.SelectedCell)
     End Sub
+
+    Private Sub FluentDesignFormControl1_Click(sender As Object, e As EventArgs) Handles FluentDesignFormControl1.Click
+
+    End Sub
 End Class
\ No newline at end of file