Sub Window_OnLoad
 frm.Username.Focus
End Sub

Function frm_OnSubmit
 If frm.Username.Value = "" Then
  MsgBox "Please enter your username",48,"Logon"
  frm_OnSubmit = False
  frm.Username.Focus
 Else 
  If frm.Password.Value = "" Then
   MsgBox "Please enter a password for user " & frm.Username.Value,48,"Logon"
   frm_OnSubmit = False
   frm.Password.Focus
  Else
   frm_OnSubmit = True
  End If
 End If
End Function