Question

I have userform which collects some user input. Now what I’m trying to do, is to declare some event to throw from userform when OK button is clicked. I’m new to vba so I don’t know how to do it. Any code or link to tutorial would be greatly appreciated.

Load UserForm1
UserForm1.Show
//here I want to capture UserForm1 OK button's click event and read the data

Answer 1

As I said in a comment, I don’t think what you want to do is possible, but I thought of the following workarounds:

1. If your user input is very simple, like just entering a string, a messagbox could work:

   Dim sUserInput As Variant
   
   sUserInput = InputBox("Please enter something useful.", "Title", "Default")
   
   Debug.Print "sUserInput=" & sUserInput
   

2. If you need the form to capture user input, making it modal and then exposing a value through a public method might work.

   In the form:

   Option Explicit
   
   Private msFormString As String
   
   Private Sub CommandButton1_Click()
       msFormString = "Someone clicked on Button 1!"
   
       '***** Note: if you use Unload Me, the string
       '***** is unloaded with the form...
       Me.Hide
   End Sub
   
   Public Function GetFormString() As String
       GetFormString = msFormString
   End Function
   

   The calling code:

   Load UserForm1
   Call UserForm1.Show(vbModal)
   Debug.Print "Value from UserForm1: " & UserForm1.GetFormString
   

   Note: The function could return an object, class or array if you need to pass more data back.