In diesem Beispiel wird überprüft, ob die Standardeinstellung für die Codierung von Dokumenten "Western" lautet; anschließend wird die Zeichenfolge strDocEncoding entsprechend festgelegt.
If Application.DefaultWebOptions.Encoding = msoEncodingWestern Then strDocEncoding = "Western" Else strDocEncoding = "Other" End If