diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index e3edb3a..7f6d3b1 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -598,10 +598,10 @@ Public Class frmHauptfenster
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                 Dim timas As New cTimasAPI
-                Dim infoMessage As String = ""
-                Dim timeEntryExisting As Boolean = False
-                timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
-                If Not timeEntryExisting Then
+            Dim infoMessage As New DataTable
+            Dim timeEntryExisting As Boolean = False
+            timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
+            If Not timeEntryExisting Then
                     Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & "als Startzeit erfassen?", vbYesNo)
                     If a = vbYes Then
                         Dim info