Function makeSymbol(inputlength)
If IsNumeric(inputlength) Then
For I = 1 To inputlength
symbol = Array("~","!","@","#","$","&","*","_")
x=RandomNumber (0,7)
tmpsymbol = symbol(x)
makeSymbol = makeSymbol + tmpsymbol
Next
else
msgbox ("error format:"&inputlength)
End If
End Function