Private Sub TransposeVariantMatrixSample()

    Const strMatrix = "A|B|C|D\nE|F|G|H\nI|J|K|L"
    Dim avarMatrix() As Variant
    StringToVariantMatrix avarMatrix, strMatrix, "|", "\n", Null

    Debug.Print "Before:"
    Debug.Print FormatVariantMatrix(avarMatrix, " ", vbCrLf)
    TransposeVariantMatrix avarMatrix, avarMatrix
    Debug.Print "After:"
    Debug.Print FormatVariantMatrix(avarMatrix, " ", vbCrLf)
    TransposeVariantMatrix avarMatrix, avarMatrix
    Debug.Print "After:"
    Debug.Print FormatVariantMatrix(avarMatrix, " ", vbCrLf)
    Debug.Print VariantMatrixToString(avarMatrix, "|", vbCrLf)
End Sub