Data Type VisualBasic Script

Sub dec()
    Dim lngResponse As Long
    lngResponse = MsgBox("Do you want to create the daily report?", _
        vbYesNo + vbQuestion, "Create Daily Report")
End Sub