Just VBA - pass info from user form to module?

[Paul_Hossler]

I got this from someone here in the forums, but I forgot who gave it to me

Put a Public Function in the UserForm code and have it return data to the calling macro

Public Function Value_Ret( Optional strTitle As String = "My Custom Input", _
Optional strPrompt As String = "Enter Something", Optional vntDefault As Variant = vbNullString) As Variant
     With Me
         .Caption = strTitle
         .lblPrompt.Caption = strPrompt
         With .txtInput
             .Value = vntDefault
             .SelStart = 0
             .SelLength = Len(vntDefault)
         End With
         .Show
         If Len(.txtInput.Value) > 0 And Not .txtInput.Value = vntDefault Then
             Value_Ret = .txtInput.Value
         Else
             Value_Ret = False
         End If
     End With
    Unload frmInput
End Function

and call it like this, probably in a standard module

Option Explicit
Sub example02()
    MsgBox frmInput.Value_Ret(, , "old text")
End Sub