Code:
Function COS($Number)
  Dim $sc
  $sc = CreateObject("ScriptControl")
  $sc.Language = "VBScript"
  $COS = $sc.Eval('COS('+ $Number + ')')
EndFunction