custom input box

[kows]

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:

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.