Forçar digitação numérica no campo

GaleraEu estou precisando de uma função que só permita a digitação de dados numéricos e reiais em um determinado campo.Eu consegui colocar só para número inteiro, só que ele não aceita a ",".vocês podem me ajudar?:CÓDIGOtxtTotal_KeyPressKeyAscii = IIf(KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 8, KeyAscii, 0)abrsAlex