Skype вытащить всю историю

[0creator0]

Здравствуйте, подскажите, может кто сталкивался или знает направления куда идти, проблема такая вытаскиваю из Skype историю, но не всю почему то, он не видит дальше двух дней и не знаю как подобраться к ней вот на этом коде остановился и не знаю куда идти

Sub NewSkype()
Dim Path As String
Dim oSkype As New skype
Dim ch As Chat
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User
Dim oMembers, oMsg
Set skUser = oSkype.User("rozovoesolnishko")
Set ch = oSkype.CreateChatWith("rozovoesolni shko")
If Not oSkype.Client.IsRunning Then
oSkype.Client.start
End If
Path = ch.RecentMessages.Count 'Узнаю общее количество строк в истории (показывает количество)
Path = ch.RecentMessages(1).Body ' Читаю что записано в строке
И вот тут то загвостка, он показываю не всю историю а только за 2 дня а мне надо за 30 дней может кто сталкивался с такой проблемой подскажите выход.
End Sub

[DiemonStar]

Инструменты - Настройки - Настройки чата и СМС - Открыть дополнительные настройки
а там смотреть Сохранять историю