for (int i = 0, a = 1; i <= this->textBox1->Text->Length && a == 1; i++)
{
	if (!System::Char::IsDigit(this->textBox1->Text, i))
	{
		 this->textBox1->Text = "В текст боксе не только числа";
						 a = 0;
	}
	else
	{
		 this->textBox1->Text = "УРАААА в текс боксе одни лишь числа!!!";
	}
}