Помогите исправить программу

Кто хорошо соображает, подскажите, как исправить программу,чтобы не было ошибки overflow. Дело в том, что получается число ''е1'' равное примерно 15^1000 и его нужно втиснуть в текстовое окно, менял разные переменные-не помогло. Формат scientific тоже не помог.
вот код

Private Sub Command3_Click()
Dim a, b, c, f, e1, w1, t, k, p, x, w2, w3, h, w4 As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
f = Val(Text4.Text)
w1 = Val(Text5.Text)
t = Val(Text6.Text)
k = Val(Text7.Text)
p = Val(Text8.Text)
x = Val(Text9.Text)
no:
If c > 0 Then
c = Val(InputBox("Введите с меньше 0", "Вводим с"))
GoTo no
End If
If c <= 0 Then
GoTo ye
End If
ye:
If p = "" Then
p = Val(InputBox("Введите р отличное от 0", "Вводим p"))
GoTo ye
End If
If p = 0 Then
p = Val(InputBox("Введите р отличное от 0", "Вводим p"))
GoTo ye
End If
If p <> 0 Then
GoTo ee
End If
ee:
e1 = a * w1 ^ (1 + b * f) * Exp(c * t * (w1 ^ 2))
w2 = Sqr((1 + b * f) / 2 * (-c) * t)
w3 = Sqr((2 * b * f + 3 - Sqr(9 + 8 * b * f)) / 4 * (-c) * t)
h = 10 * k * e1 / p
w4 = Sqr(x / 2 * (-c) * t)
Text10.Text = Str(e1)
Text11.Text = Str(w2)
Text12.Text = Str(w3)
Text13.Text = Str(h)
Text14.Text = Str(w4)
End Sub