PROPER CASE Code (for calculating field values in a table - editing field names, etc. as desired):

(in the Field Calculator dialog box check the radio button for PYTHON for the Parser)

<field_name>=
                            !Existing_Field_Name!.title()

PROPER CASE Code (also adding a carriage return and the word "Island") for labels (copy paste into a label text string expression - editing field names, etc. as desired):

(in the Field Calculator check the radio button for PYTHON for the Parser)
(in the Label Expression dialog box check the box for ADVANCED using VBScript for the Parser)


Function FindLabel ([Field_Name])
  FindLabel = PCase([Field_Name]) & VBCR & "Island"
End Function

Function PCase(strInput)
  Dim iPosition
  Dim iSpace
  Dim strOutput
  iPosition = 1
  Do While InStr(iPosition, strInput, " ", 1) <> 0
    iSpace = InStr(iPosition, strInput, " ", 1)
    strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
    strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
    iPosition = iSpace + 1
  Loop
  strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
  strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
  PCase = strOutput
End Function