VB samplesFunctionScript (You can alter this)
result