Confirm disk is present

Sub Input_From_Users()
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim rnData As Range
    Dim vaArray As Variant, vaData As Variant
    Dim i As Long
     
    Const stPrompt As String = "Please enter values for calculation:"
    Const stTitle As String = "Indata for calculation of volume"
     
    Set wbBook = ThisWorkbook
    Set wsSheet = wbBook.Worksheets(1)
     
    With wsSheet
        Set rnData = .Range("A2:A6")
    End With
     
     'Default values
    vaArray = VBA.Array(1, 2, 3, 4, 5)
     
     'The inputbox is showed 5 times.
    vaData = Application.InputBox(Prompt:=stPrompt, _
    Title:=stTitle, _
    Default:=vaArray, _
    Type:=64)
     
     'In case the user cancel the operation.
    For i = 1 To 5
        If vaData(i) = Empty Then Exit Sub
    Next
     
     'Add the retrieved data to the range.
    With Application
        .ScreenUpdating = False
        rnData.Value = .Transpose(vaData)
        .ScreenUpdating = True
    End With
     
End Sub