MsgBox_Yes or No
Dim Res As Integer Res = MsgBox("ファイル数がすんごく多いです。" & vbCrLf & "リストボックスに入れると時間かかるよ。", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "どうする?") If Res = MsgBoxResult.Yes Then OutPutListBox() ElseIf Res = MsgBoxResult.No Then ListBox1.Items.Add("省略") End If