IfIsNull(var_Str)Orvar_Str=""Then
eraseLastChr=""
Else
IfIsNull(var_character)Orvar_character=""Then
eraseLastChr=var_Str
IfRight(var_Str,1)=var_characterThen
eraseLastChr=Left(var_Str,Len(var_Str)-1)
EndIf
EndFunction