Public Function getWakeUpDayTime(ByRef CallNumber As Byte) As Object
  Dim WakeUpDayTime As WakeUpDayTimeType
  ...
  getWakeUpDayTime = WakeUpDayTime
End Function

.tWakeUpDayTime = Form1.CfgSockCtr1.getWakeUpDayTime(.Index)

Type WakeUpDateTimeType
   Hour  As Byte
   Minute As Byte
   DayOfWeek(6) As Boolean
End Type
 
Type TeilnehmerType
   Index As Byte
   Rufnummer As String
   Name As String
   Status As CheckInOutStates
   WeckenAktiv As Boolean
   tWakeUpDayTime As WakeUpDateTimeType
End Type