>>267
１　Text1.Textに "ABC" と入っている
２　Text1.Textに "１２３" と入っている
３　Text1.Textに "123 " と入っている
４　Text1.Textに "-12.34" と入っている

text1.text=trim(text1.text)
if text1.text like "*[!0123456789]*" then exit sub
上二行を頭にいれてください。