[use:none]
Function none(none1 As String) As String
Dim none2 As String
none2 = "none3"
none = none2
End Function