'ARL 23/11/2007
'Función utilizada por el mecanismo de firma de Capicom
Function StrConvFromUnicode(Ustr) 
	Dim i, ch  
	StrConvFromUnicode = ""   
	For i = 1 to Len(Ustr) 
		ch = Mid(Ustr, i, 1) 
		StrConvFromUnicode = StrConvFromUnicode & ChrB(AscB(ch))  
	Next 
End Function