Ordna efter bokstavsordning

Har denna kod för att skriva ut användare:

	 aSessions = dOnlineUsers.Keys
    	for iUser = 0 to dOnlineUsers.Count - 1
        sKey = aSessions(iUser)
        sUserInfo = dOnlineUsers.Item(sKey)
        aUserInfo = split(sUserInfo, "<|>")
        
        sUserName = aUserInfo(0)
        sLastActionTime = aUserInfo(1)
        sLastPageViewed = aUserInfo(2)
        
        if sUserInfo <> "" AND not sUserName = "Gäst" then
        iUsrCount = iUsrCount + 1

Men hur gör man så att den ska ordna efter bokstavsordning?