The syntax in VBA is:
Funtion GiveFilename() as String
GiveFilename = Filenaam
End Funtion
It is always best to assign specific data types rather than using variants so I added the "as String". Then to set the value, you just use an equate statement in the form:
FunctionName = something