Dim vHighest as string
Dim vLowest as string
Dim vMiddle as string
vLowest = Switch( . . . .
vHighest = Switch( . . . .
vMiddle = Switch(CLng(String1) < CLng(String2) and CLng(String1) > CLng(String3), String1, CLng(String2) < CLng(String3), String2, True, String3)