Hi,

Using Excel 2000 and Windows XP professional, I'm using the following
code to create a variable to use in another sub.

In a quoting application I'm designing, I'm collecting all the
quantities for a part number quote into an variable named "a". I have
a userform with a textbox and a command button. See the code I'm
using below.

I have two questions:

How can I save the variable for use in another sub?
How can I make sure the user doesn't click the command button until a
quantity is entered in the text box?

Thanks,

Dan
------------------------------------------------------------------
Private Sub cmdQuantity_Click()
Dim lr As Long, sh As Worksheet
Dim aQuant As Variant
Dim cont
Static a() As String
Dim lngArrayCounter As Integer

lngArrayCounter = -1
On Error Resume Next
lngArrayCounter = UBound(a)
On Error GoTo 0
If lngArrayCounter = -1 Then
ReDim Preserve a(0)
Else
ReDim Preserve a(lngArrayCounter + 1)
End If
a(UBound(a)) = txtQuantity_1.Text


cont = MsgBox("DO YOU NEED TO MAKE ANOTHER ENTRY?", vbYesNo,
"CONTINUE?")
If cont = vbYes Then
Me.txtQuantity_1.Text = ""
Me.txtQuantity_1.SetFocus
End If
End Sub