P = Val(Text1.Text) описать все что происходит в даной строке.
visual basic
Перевод значения текстовой переменной в числовую и присваивание результата в P