Private Sub ComposeCharacterSample()
    ' Sample Sub which illustrates the translations supported by the ComposeCharacter function.

    Dim intCharOne As Integer
    For intCharOne = 0 To 255
        Dim intCharTwo As Integer
        For intCharTwo = intCharOne To 255
            Dim strTrans As String
            strTrans = ComposeCharacter(Chr$(intCharOne) + Chr$(intCharTwo))
            If Len(strTrans) Then
                Debug.Print Chr$(intCharOne) & " " & Chr$(intCharTwo) & " --> " & strTrans;
                Debug.Print "  Chr$(" & intCharOne & ") + Chr$(" & intCharTwo & ") = Chr$(" & ASC(strTrans) & ")"
            End If
        Next intCharTwo
    Next intCharOne
End Sub