Sub メッセージボックス_再試行_キャンセル_ボタン形式()

    選択結果 = MsgBox("再試行/キャンセル", vbRetryCancel, "タイトルはここ")
    
    If 選択結果 = 4 Then '[再試行]
    
        '[再試行]の場合の処理
    
    ElseIf 選択結果 = 2 Then '[キャンセル]
    
        '[キャンセル]の場合の処理
    
    End If

End Sub