diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index e3edb3a..12587bc 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -598,8 +598,8 @@ 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
+            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)