Managing Focus on an Input Box in Outlook

[arch1tect]

I have written a small macro that requires me to enter a password every time I send an e-mail. I am having trouble putting the focus on the password entry window when I invoke the macro. Here is a snippit of the code where I actually call the macro, does anyone have any advice?
-----------------------------------------------------------
Dim pswd As String
pswd = InputBoxDK("What is the Password for Phil to send eMail.", "Security", , 0, 0)
If pswd = "0528123" Then
Cancel = False
Exit Sub
Else
MsgBox ("Only PHIL can send E-mail from this PC!!!")
Cancel = True
LockWorkStation
Exit Sub
End If
------------------------------------------------------

 

[kjv1611]

Will something like this work?

Dim frm as Form
Set frm = "FormName"
frm.SetFocus