försök som tar bort avsluta, om som följer:
'Sortera teckenen in i beställer, lägst highest, för varje som är dropdown
Om (vRand1>vRand2 och vRand1>vRand3) därefter vCheck1 = vRand1
ElseIf (vRand1>vRand2 och vRand1 ElseIf (vRand1>vRand3 och vRand1 ElseIf (vRand1
Om (vRand2>vRand1 och vRand2>vRand3) därefter vCheck2 = vRand2
ElseIf (vRand2>vRand1 och vRand2 ElseIf (vRand2>vRand3 och vRand2 ElseIf (vRand2
Om (vRand3>vRand1 och vRand3>vRand2) därefter vCheck3 = vRand3
ElseIf (vRand3>vRand1 och vRand3 ElseIf (vRand3>vRand2 och vRand3 ElseIf (vRand3