Код vb. net, который работает (исправлено):
Try
With dgvGlobalVariables.Rows
For Each oMember As MemberInfo In GetType(modGlobal).GetRuntimeFields
Dim oField As FieldInfo = CType(oMember, FieldInfo)
Try
Dim sValue As String = oField.GetValue(oField).ToString
.Add(oField.Name, sValue)
Catch ex As Exception
.Add(oField.Name)
End Try
Next
End With
Catch ex As Exception
With System.Reflection.MethodBase.GetCurrentMethod()
P_WriteErrorToLog(ex.ToString, .ReflectedType.Name & "." & .Name)
End With
End Try