Two Field "InputBox"

Here's a neat trick to show someting modally, be able to reference the form without using additional public variables:

-- Modal Form {myModalForm}
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode<>1 Then ' closing, but not due to Unload call
Me.Hide ' returns control back to calling form
Cancel = True ' prevents actual closing for now
End If
End Sub
Private Sub cmdBtnOK_Click() ' or whatever you use to "close" the modal form
Me.Hide
End Sub
' Note: The modal form cannot have Show commands, i.e., Me.Show causes error

-- Calling Form {myCallingForm}
' Optional if you want to set any properties/control values on modal form before it is displayed
Load myModalForm ' loads it but doesn't show it
' set those properties

' Display it modally
myModalForm.Show True, Me
' next line will not continue until modal form is closed or hidden

' >> get the values from the modal form's text boxes or other controls
' i.e., pswd = myModalForm.txtPassword
Unload myModalForm ' now ensure the form is unloaded