Newbie Userform questions: Userform to variables

[Majawat]

I appologize if this has been discussed elsewhere, I did a quick search on here and didn't come back with anything that suits my needs. Moreover, I've also searched google as well.

I just started using Userforms today. I've used Visual Basic before so I understand some about the theory about them, but am having trouble using them inside Excel 2010 to gather data.

I'm looking for a brief tutorial on using Userforms as a variable input, basically.

I have a collection (called BeerList) of a custom class called BeerType. The BeerType object (a variable called Beer in my sheet) has several varibles as one would expect: BeerName, Volume, Price, ABV, Style, etc.

After creating the UserForm (ManualAdd), I have the necessary TextBoxes/ComboBoxes to enter and a Submit and Done button.

My overal goal is to prompt for the information, fill in the variables, add to collection, ask for more data, and stop if asked.

Pseudocode:

Do 
     ManualAdd.show
     if ManualAdd.btnSubmit = clicked then
          beer.Name = ManualAdd.txtName
          beer.ABV = ManualAdd.txtABV
          beer.Volume = ManualAdd.Volume
          'other variables as needed
     end if

     ManualAdd.Controls.ClearContents

     BeerList.add beer
Loop Until ManualAdd.btnDone = Clicked

Please help, and thank you so much for your time! If I haven't provided enough information, please let me know and I will give more.

 

[Majawat]

Bump? Sorry if this is not allowed.

 

[Majawat]

I have crossposted this to Newbie Userform questions: Userform to variables as well. With no response there.

Please help! Thank you!

 

[Majawat]

It looks like I may have found my answer after all, without adding global variables:

Private Sub manualAdd()
    Dim strbeerName, strContainer, strStyle As String
    Dim dblABV, dblPrice As Double
    Dim intVolume As Integer
    Dim boolFeatured, boolHouse As Boolean
 
    Do
        manualAdd.Show
        strbeerName = manualAdd.txtName
        'and the other variables

        MsgBox strbeerName 'to be replaced with the rest of the code
    Loop Until manualAdd.StopAdding
    
    Unload manualAdd
End Sub

(StopAdding is a gobal boolean inside the manualAdd userform)

Thank you very much bstier and royUK at ozgrid.com for your help!