Use the control "InputDialog" in a function call rather than using the function "InputBox" as showing in this following sample.
Private Function GetPassword(Optional strCurrentPW as String = "") as string
Dim strPassword As String = ""
Dim InputPassword As New InputDialog
With InputPassword
.TopMost = True
.Text = "Password"
.txtValue.Text = strCurrentPW
.Prompt = "Please input your password"
.ShowDialog()
End With
If InputPassword.DialogResult = DialogResult.OK Then
return InputPassword.value.trim
else
return ""
endif
end function
The "topmost" setting will ensure the input box (or rather, Input Dialog") will appear above all other forms. I hope this helps.