Query related to Cancel button with the help of VBA

Excel 

New version:

Public Sub UserSortInput()
    Dim sortorder As Integer
    Dim promptMSG As String
    Dim tryAgain As Integer

    promptMSG = "How would you like to sort the list?" & vbCrLf & _
        "1 - Sort by Division" & vbCrLf & _
        "2 - Sort by Category" & vbCrLf & _
        "3 - Sort by Total"

    sortorder = Val(InputBox(Prompt:=promptMSG, Title:="Sort Order"))
    Select Case sortorder
        Case 0
            Exit Sub
        Case 1
            DivisionSort
        Case 2
            CategorySort
        Case 3
            TotalSort
        Case Else
            tryAgain = MsgBox("Invalid Value! Try Again?", vbYesNo)
            If tryAgain = vbYes Then
                UserSortInput
            End If
    End Select
End Sub

Public Sub DivisionSort()
    ' sorts the list by the Division
    Columns("A:F").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes
End Sub

Public Sub CategorySort()
    ' sorts the list by the Category
    Columns("A:F").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlYes
End Sub

Public Sub TotalSort()
    ' sorts the list by the Total
    Columns("A:F").Sort Key1:=Range("F2"), Order1:=xlDescending, Header:=xlYes
End Sub