VB.NET Convert Custom Object in a Dictionary(Of String, String)

#vb.net

#dictionary

#property

#custom object

#cycle

#refelction

How to convert your fantastic custom Object in Dictionary Of String, String
(maybe useful for csv creating)

Public Class MyObject

'some code ...

Public Function toDictionary() As Dictionary(Of String, String)
 Dim d As New Dictionary(Of String, String)
 For Each p As System.Reflection.PropertyInfo In Me.GetType.GetProperties()
 Try
 d.Add(p.Name, p.GetValue(Me, Nothing).ToString)
 Catch ex As Exception
 'write error message
 d.Add(p.Name, ex.Message)
 End Try
 Next
 Return d
End Function

'other code ...

End Class