Type ProfileStuff(Desc As String, Picture() As Byte, Ques(31,36) As String)
Dim ProfileIn as ProfileStuff
.....
ProfileIn.initialize
....
Private Sub mqtt_MessageArrived (Topic As String, Payload() As Byte)
Dim obj as object
obj = serializator.ConvertBytesToObject(Payload)
' error occurs here