Private Sub LookupStringToVariantMatrixSample()
    Const S = "A|Alpha|B|Bravo|C|Charlie|D|Delta|E|Echo"

    Dim V() As Variant
    LookupStringToVariantMatrix V(), S, "|"

    Debug.Print FormatVariantMatrix(V(), " ", vbCrLf)

    Debug.Print LookupSorted(V(), "A")
    Debug.Print LookupSorted(V(), "D")
    Debug.Print LookupSorted(V(), "G")
End Sub