"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