Dim Moji As String

        Moji = MaskedTextBox1.Text

        If Len(Moji) = 0 Then
            MsgBox("何も入力されていません")

        End If

以上のように書き換え、値が入力されなかった時はエラーメッセージが表示されるようになりました。

今回のプログラムは、maskedtextboxに値が何も入力されなかったときに

『(1)form2は閉じずに、ユーザに再度値を入力してもらう』

を考えています。