ник: Силblч
как то так? 
Function rnd16()
Randomize
rnd16 = Int((16 * Rnd) + 1) ' а от 15 до 0, почему то "зависает" долго считает ;)
End Function
Function g()
Dim i%, r%
s = "|"
For i = 0 To 15
r = rnd16()
Do While s Like "*|" & r & "|*" And s <> "|": r = rnd16(): Loop
s = s & r & "|"
Next i
g = s
End Function
|
?g()
|10|7|1|4|3|5|12|14|16|13|2|9|6|8|11|15|
|2|15|10|3|9|12|13|14|6|16|5|8|4|7|1|11|