"I need to sort the characters within a string value, then rewrite the value with the original value correctly sorted. The field in question contains from 1 to 5 alpha characters, each of which represents a specific answer to a survey question. So, valid responses are A through E, and people can select more than one answer. Field values will look like this:"
ABD B CE BDE EC
Function SortThem(letters) Dim x As Long, s As String For x = 65 To 69 If InStr(1, letters, Chr(x)) Then s = s & Chr(x) Next x SortThem = s End Function