Hi Jarek,
It worked, but I want some more. I do not want to transfer the value to
cell, instead I want to use withing the code. Pls make me mroe comfortable
doing this.
Sunil
Private Sub CommandButton1_Click()
Dim val As Single
Dim res As Single
Dim myvalue As Single
val = CSng(TextBox1.Value)
Sheet1.Range("a1").Value = val
myvalue = WorksheetFunction.NormSInv(Range("A1").Value)
TextBox2.Value = myvalue + 1.5
End Sub