custom input box

I got MartinLiss' custom input box (found HERE) and I'm using it to return a string in a function.. The function I'm using is:

VB Code:

Private Sub cmd_start_Click()
  Dim lala
  lala = InputBox2("test", "test2")
  MsgBox lala
End Sub
 
Private Function InputBox2(prm As String, ttl As String) As String
  frmInputBox.title = prm
  frmInputBox.prompt = ttl
  frmInputBox.Display
End Function

Maybe I'm not thinking right, but I can't find a way for the input box to return the value to "lala".. is there any way to do this? If you want to check out the input box script, just download it off of that link.

you have to return the value from the inputbox in your function...

VB Code:

Option Explicit
 
Private Sub cmd_start_Click()
  Dim lala
  lala = InputBox2("test", "test2")
  MsgBox lala
End Sub
 
Private Function InputBox2(prm As String, ttl As String) As String
  frmInputBox.Title = prm
  frmInputBox.Prompt = ttl
  frmInputBox.Display
  InputBox2 = frmInputBox.txtInput.Text
End Function