Using variables in a message box function with VBA

[Teqlump2002]

I have an Excel document that I am adding VBA code for and I need to display the values of two variables in the message box so the user can see what the remaining stock values are for a certain product when they place an order. I entered the commands in just as my reference book says but the message box doesnt show the value of the variables. Does anybody know how to make this work. I have the code pasted below. Thanks a million.

Sub Insert_Order()
'
' Insert_Order Macro
'

'
Dim Item As String
Dim Ordered As Integer
Dim Instock As Integer
Dim Remaining As Integer
Item = Worksheets("Order Form&quot.Range("C6&quot.Value
Ordered = Worksheets("Order Form&quot.Range("C8&quot.Value
Instock = Application.WorksheetFunction.VLookup(Range("C5&quot, Range("Inventory&quot, 6, F)
Remaining = Instock - Ordered

If Remaining >= 0 Then
Sheets("Submitted Orders&quot.Select
Rows("3:3&quot.Select
Selection.Insert Shift:=xlDown
Sheets("Order Form&quot.Select
Range("C4:C11&quot.Select
Selection.Copy
Sheets("Submitted Orders&quot.Select
Range("A3&quot.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("Order Form&quot.Select
Range("C14:C19&quot.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Submitted Orders&quot.Select
Range("I3&quot.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A1&quot.Select
Sheets("Order Form&quot.Select
Range("C4&quot.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C5&quot.Select
Selection.ClearContents
Range("C8&quot.Select
Selection.ClearContents
Range("C14:C19&quot.Select
Selection.ClearContents
Range("C4&quot.Select
MsgBox "You have Remaining Item remaining in stock.", vbInformation, "Order Entered"
Else
MsgBox "There are only Instock Item in stock.", vbCritical, "Order Rejected"
End If



End Sub

 

[kiso]

Hi

That's easy:

use the &-operator (+ also works with strings)

example:
MsgBox "text" & numbervariable & "more text"


Kim

 

[johnwm]

Try this:

MsgBox "You have " & Remaining & " Item remaining in stock.", vbInformation, "Order Entered"

It is not considered good practice to use the + operator with strings as VB will first try to process your strings as numbers, which can lead to confusion.

msgbox "1" + "2" ' yields 3

msgbox "1" & "2" ' yields 12

 

[Teqlump2002]

Oh I see. It works now. Thanks for the help everybody. I really appreciate it.