Invalid procedure call or argument: 'mid' - Programmers Heaven

msg is "Invalid procedure call or argument: 'mid': this is the code:: function GenerateBlanks(str): dim i: dim result : result="": for i=1 to len(str): if (mid(str,i,1)="*") then: result= result & " ": else: result= result & mid(str,i,1): end if: next : e

programmersheaven.com