VBA закончить сортировщик

Формулировка задачи:

Вообщем надо закончить сортровщик по неубыванию и по невозрастию. При выборе 1 брал подпрограмму Sort1 и т.д. Заранее спасибо! ===========================================

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Function NaprSort() As Integer
    'Задание направления сортировки
    ' 1 - по неубыванию(Sort1)
    ' 2 - по невозрастию(Sort2)
    Dim Titul As String, Подсказка As String, Умолчание As String
    Titul = "Выбор направления сортировки"
    Подсказка = "Выберите направления сортировки:" _
                + vbLf + "1 - по неубыванию" _
                + vbLf + "2 - по невозрастию"
    Умолчание = 1
    NaprSort = InputBox(Подсказка, Titul, Умолчание)
End Function

Решение задачи: «VBA закончить сортировщик»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function Sort1()
MsgBox "Выбран Sort1 - по неубыванию"
End Function
Function Sort2()
MsgBox "Выбран Sort2 - по невозрастию"
End Function
Function NaprSort() As Integer
'Задание направления сортировки
' 1 - по неубыванию(Sort1)
' 2 - по невозрастию(Sort2)
Dim Titul As String, Подсказка As String, Умолчание As String
Titul = "Выбор направления сортировки"
Подсказка = "Выберите направления сортировки:" _
+ vbLf + "1 - по неубыванию" _
+ vbLf + "2 - по невозрастию"
Умолчание = 1
NaprSort = InputBox(Подсказка, Titul, Умолчание)
 
Select Case NaprSort
Case 1: Sort1
Case 2: Sort2
Case Else: MsgBox "Проверьте запись цифры", vbCritical
End Select
End Function