Function myCInt(Cadena)
			 If Cadena = "" Then
				Cadena = 0
			 End If
			 If IsNull(Cadena) Then
				Cadena = 0
			 End If
			 If IsNumeric(Cadena) Then
				Cadena = Cadena
			 Else
				Cadena = 0
			 End If
			 myCInt = CInt(Cadena)
	End Function
	
	Function myCDbl(Cadena)
			 If Cadena = "" Then
				Cadena = 0
			 End If
			 If IsNull(Cadena) Then
				Cadena = 0
			 End If
			 If Not IsNumeric(Cadena) Then
				Cadena = 0
			 End If
			 myCDbl = CDbl(Cadena)
	End Function