Function vbLen(Z)
	Dim Y
	Y = (Len("Öйú")=2)
	If Y Then
		Dim A,B,C,i
		A=Len(Z)
		B=A
		For i=1 To A
			C=Asc(Mid(Z,i,1))
			If C<0 Then C=C+65536
			If C>255 Then
				B=B+1
			End If
		Next
		vbLen=B
	Else 
		vbLen=Len(Z)
	End If
End Function
Function vbHex(Z) 
	vbHex = Hex(Asc(Z)) 
End Function
Function vbChr(Z) 
	vbChr = Chr(Z) 
End Function
Function vbIsMail(Z)
	Dim A,B,C,i
	vbIsMail = True
	A = Split(Z, "@")
	If UBound(A) <> 1 Then
	   vbIsMail = False
	   Exit Function
	End If
	For Each B In A
	   If Len(B) <= 0 Then
		 vbIsMail = False
		 Exit Function
	   End If
	   For i = 1 To Len(B)
		 C = Lcase(Mid(B, i, 1))
		 If InStr("abcdefghijklmnopqrstuvwxyz_-.", C) <= 0 and not IsNumeric(C) Then
		   vbIsMail = False
		   Exit Function
		 End If
	   Next
	   If Left(B, 1) = "." or Right(B, 1) = "." Then
		  vbIsMail = False
		  Exit Function
	   End If
	Next
	If InStr(A(1), ".") <= 0 Then
	   vbIsMail = False
	   Exit Function
	End If
	i = Len(A(1)) - InStrRev(A(1), ".")
	If i <> 2 and i <> 3 Then
	   vbIsMail = False
	   Exit Function
	End If
	If InStr(Z, "..") > 0 Then
	   vbIsMail = False
	End If
End Function
Function vbCut(Z,Y)
	Dim A,B,i
	Z = Trim(Z)
	A = Len(Z)
	B = 0
	If A >= 1 Then
		For i = 1 To A
			If Asc(Mid(Z,i,1)) < 0 Or Asc(Mid(Z,i,1)) >255 Then
				B = B + 2
			Else
				B = B + 1
			End If
			If B >= Y Then
				Z = Left(Trim(Z),i)
				Exit For
			End If
		Next
		vbCut = Z
	Else
		vbCut = ""
	End If
End Function