メモとして残します。

■やり方

Function hoge()
    Me.Form.SetFocus 'または Me.SetFocus でも可
End Function

■さいごに

基本的にはこんなことやる機会はないとは思いますが、
私の場合は、ローディング画面のようなフォームを処理中に表示することがあるため、
ロード完了時に閉じたときにフォームにフォーカスを戻してキー入力をシームレスに続けることが目的だったため、仕方なく。。。