This is mainly needed for if the data needs to be sorted eg in a flexible table.
Lightly tested and seems to work fine, and is quite fast as well.
Will be interested if there are improvements.
Sub GetColumnDataType(arrString() As String) As String
Dim i As Int
Dim r As Int