Hi,
I am wondering if it is possible to have a VBA msgbox to show information from a Textbox that's in a VBA Userform. The text I have below works upto the point of where I what it to call "Are you sure you want to Confirm this Quantity" (The last step). What I want it to do is to read the textbox 3 value and display it in the message box. Is this possible or do I just give up on this or is there a code that will enable this to work.
ThanksPrivate Sub CommandButton2_Click() If Me.TextBox2.Value = "" Then MsgBox "Please add a product into product box" Exit Sub End If If IsNumeric(Me.TextBox3.Value) = False Then MsgBox "Invalid Qty" Exit Sub End If Dim Answer As VbMsgBoxResult Answer = MsgBox("Are you sure you want to Submit this Entry", vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation of Submission") If Answer = vbYes Then Answer = MsgBox("Are you sure you want to Confirm this Quantity" & vbLf & _ IsNumeric(Me.TextBox3.Value).Text, vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation of Quantity") Exit Sub End If Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Stock In-Out") Dim lr As Long lr = Application.WorksheetFunction.CountA(sh.Range("A:A")) sh.Range("A" & lr + 1).Value = Me.TextBox2.Value If Me.OptionButton1.Value = True Then sh.Range("B" & lr + 1).Value = "IN" Else sh.Range("B" & lr + 1).Value = "OUT" End If sh.Range("C" & lr + 1).Value = Me.TextBox4.Value sh.Range("D" & lr + 1).Value = Me.TextBox3.Value sh.Range("E" & lr + 1).Value = Me.TextBox6.Value MsgBox "Updated!!!" End Sub