Dim strContents As String = Me.Controls.Item(strFieldName).Text