VB.Net: Object to Dictionary

objectToDictionary.vb

Public Function ToDictionary() As Dictionary(Of String, Object)
    Dim dictionary As Dictionary(Of String, Object) = New Dictionary(Of String, Object)
    
    For Each property_info As Reflection.PropertyInfo In [GetType].GetProperties()
        Try
            Console.WriteLine("name: " + property_info.Name + " value: " + property_info.GetValue(Me, Nothing).ToString)
            dictionary.Add(property_info.Name, property_info.GetValue(Me, Nothing).ToString)
        Catch ex As Exception
            dictionary.Add(property_info.Name, ex.Message)
        End Try
    Next
    
    Return dictionary
End Function