userform textbox calculation

[viruzman]

Hello

I Have a Userform that has 4 textboxes on it.


Control Value
textbox1 2
textbox2 +
textbox3 3
textbox4 Results

so basicly textbox2 will give me the sum of textbox1 + textbox3 = textbox4.text = 5 wich is the results.

usually the formula or vba i use is

textbox4 = VAL(textbox1) + VAL(Textbox3)
but i need something like
textbox4 = Val(textbox1) And VAL(textbox2) + VAL(textbox3)

[mikerickson]

This userform code assumes four text boxes,

TextBox1 holds a numeral
TextBox2 holds a symbol; + - * / ^
TextBox3 holds a numeral

TextBox4 will display the result of the calculation.

Private Sub TextBox1_Change()
    Call updateTextBoxes
End Sub

Private Sub TextBox2_Change()
    Call updateTextBoxes
End Sub

Private Sub TextBox3_Change()
    Call updateTextBoxes
End Sub

Sub updateTextBoxes()
   With Me
      .TextBox4.Text = vbNullString
    
      Select Case Left(Trim(.TextBox2.Text), 1)
         Case Is = "+"
            .TextBox4.Text = CStr(Val(.TextBox1.Text) + Val(.TextBox3.Text))
         Case Is = "-"
            .TextBox4.Text = CStr(Val(.TextBox1.Text) - Val(.TextBox3.Text))
         Case Is = "*"
            .TextBox4.Text = CStr(Val(.TextBox1.Text) * Val(.TextBox3.Text))
         Case Is = "/"
            If Val(.TextBox3.Text) = 0 Then
                .TextBox4.Text = "#DIV/0"
            Else
                .TextBox4.Text = CStr(Val(.TextBox1.Text) / Val(.TextBox3.Text))
            End If
          Case Is = "^"
             On Error Resume Next
                .TextBox4.Text = CStr(Val(.TextBox1.Text) ^ Val(.TextBox3.Text))
             On Error GoTo 0
      End Select
    
   End With
End Sub

[shg]

Another option:

Sub updateTextBoxes()
   With Me
      .TextBox4.Value = Evaluate(.TextBox1.Text & .TextBox2.Text & TextBox3.Text)
    End With
End Sub

[mikerickson]

Nice!

I need to remember Evaluate.