Writing a formula into VBE

[Alexxu]

Hello.
My problem is how to write a formula in vb.
I searched everywhere, and nothing
I write a code, but i get overflow error.

Option Explicit
Const Pi = 3.14159265358979
Const B = 2
Const C = 1.5
Const D = 8
Const E = 4


Private Sub chkRezultat_Click()
 Dim X As Single, Y As Single, Z As Single, W As Single
 
    txtRezultat.Visible = True
 
  'here i type the formula
   X = B * Val(txtQT.Text)
   Y = B * (Pi) ^ C
   Z = Val(txtsigmax.Text) * Val(txtsigmay.Text) * Val(txtsigmaz.Text)
   W = X * Y
   txtRezultat.Text = Val(W) / Val(Z)

'here is how the formula should look like   
'txtRezultat.Text = ((B * Val(txtQT.Text)) / Val((B * Pi) ^ C)) * Val(txtsigmax.Text) *Val (txtsigmay.Text) * Val(txtsigmaz.Text)
   
  chkRezultat.Value = False
 
End Sub

When it gets overflow these turns yellow:

 txtRezultat.Text = Val(W) / Val(Z)

I don't know if this:

Dim X As Single, Y As Single, Z As Single, W As Single

, is written correctly.
Any idea or suggestion?
Thanks.
My real formula looks like this(is one of the tree formula that i have to write)
Cmax (X) = 2*QT/((2*π)^3/2)*σx*σy*σz

 

[Norie]

Alex

I really can't follow what you want to do.

And you appear to be working with a userform or worksheet controls, which might have been useful to tell us.

As to the overflow error, I can only hazard a guess is that it's because some value, probably a divisor, is zero.

PS There is a worksheet function PI(), and you could access it in VBA like this.

    MsgBox Application.WorksheetFunction.Pi

 

[RoryA]

Why are you using Val as a matter of interest?

 

[Alexxu]

I have a userform with 4 textboxes(txtQT, txtsigmax, txtsigmay, txtsigmaz) and another textbox in which i see the result(txtResult), which is triggered by a checkbox.
The formula that i want to write in the vb is: 2*QT/((2*π)^3/2)*σx*σy*σz
I typed some constants:

Option Explicit
Const Pi = 3.14159265358979
Const B = 2
Const C = 1.5 '(3/2)

Then all i wanted was to write the formula(i don't want to connect her to the worksheet), in the vbe.

 

[Alexxu]

P.S. I also posted my question here

 

[Alexxu]

I solved my problems with those formulas.
I posted my solution here