txtFields(2).Text = StrConv(txtFields(2).Text, vbProperCase)