This example checks to see whether the default document encoding is Western, and then it sets the string strDocEncoding
accordingly.
If Application.DefaultWebOptions.Encoding = msoEncodingWestern Then
strDocEncoding = "Western"
Else
strDocEncoding = "Other"
End If