function GuardEmail(s)
		st = ""
		GuardEmail = ""
		if (instr(s, "@")  < 1) or (left(s,1)="@") or (right(s,1)="@") then 
			GuardEmail = "Anda salah atau kurang meletakkan tanda (@) pada email anda"
			exit function
		end if
		
		if (instr(s, ".")  < 1) or (left(s,1)=".") or (right(s,1)=".") then 
			GuardEmail = "Anda salah atau kurang meletakkan tanda (.) pada email anda1"
			exit function
'		else
'			for i = 1 to instr(s, "@")
'				if mid(s, i, 1) = "." then 
'					GuardEmail = "Anda salah atau kurang meletakkan tanda (.) pada email anda2"
'					exit function
'				end if
'			next
		end if
		
		if (instr(s, chr(10)) >= 1) or (instr(s, chr(13)) >= 1) or (instr(s, chr(47)) >= 1) or (instr(s, "@@") >= 1) or (instr(s, "..") >= 1) or (instr(s, "@.") >= 1) or (instr(s, ".@") >= 1) then 
			GuardEmail = "kesalahan pada penulisan emai1"
			exit function
		end if
	
		for i = 1 to len(s)			
			tmp = mid(s, i, 1)
			if ((tmp >= chr(32)) and (tmp <=chr(44))) OR ((tmp >= chr(58)) and (tmp <=chr(63))) OR ((tmp >= chr(91)) and (tmp <= chr(94))) OR ((tmp >= chr(123)) and (tmp <= chr(126))) then 
				GuardEmail = "kesalahan pada penulisan email"
				exit function
			end if
			'st = st + tmp
		next		
		
		'GuardEmail = st
end function