まずは解答例を見てみましょう。

解答例①

Sub pracitice2_1()

    Dim fname As String
    Dim lname As String
    Dim mf As String
    Dim errmsg As String
    
    lname = Range("D3").Value
    fname = Range("G3").Value
    mf = Range("D6").Value
    
    If lname = "" Or fname = "" Then
        errmsg = MsgBox("氏名を正しく入力してください。", vbOKOnly + vbExclamation)
    Else
        MsgBox "氏名：" & lname & " " & fname & vbCrLf & "性別：" & mf
    End If
End Sub

解答例②

Sub practice2_2()

    Dim fname As String
    Dim lname As String
    Dim mf As String
    Dim errmsg As String
    
    lname = Range("D3").Value
    fname = Range("G3").Value
    mf = Range("D6").Value
    
    If lname = "" Or fname = "" Then
        errmsg = MsgBox("氏名を正しく入力してください。", vbOKOnly + vbExclamation)
        Exit Sub
    End If
    
    MsgBox "氏名：" & lname & " " & fname & vbCrLf & "性別：" & mf
End Sub

解答例①は、シンプルに条件の真偽によって表示するメッセージボックスを変更する、という実装方法です。「空白であるか」という条件判定には、「 = “”」という書き方が使えます。から文字列と比較して一致しているかを判定するということです。もう一点、注意したいのは条件を複数個論理結合する記述方法です。今回作成するマクロは姓・名のどちらかでも空欄だった場合、アラート表示するので、 Or を使用して結合します。「A、もしくはB」の場合、真になります。また、メッセージボックス出力の記述方法が前回と変わりましたが、これは vbExclamation を使ってメッセージボックス内のアイコンを変更したかったからです。

解答例②は、Exitステートメントを使用した実装方法です。Exit Subという命令が実行されると、End Subまでそれ以下の処理をスキップします。