Call procedure through a pointer

[shark]

Can VBA to call procedure by using a pointer ?

Sub SortbyNameProc
...
End Sub

Sub SortbySizeProc
...
End Sub

Sub SortbyDateProc
...
End Sub

Dim ProcPrr as Long
   select case SortType
   case stName
      ProcPtr = AddressOf(SortbyNameProc)
   case stSize
      ProcPtr = AddressOf(SortbySizeProc)
   case stDate
      ProcPtr = AddressOf(SortbyDateProc)
   End Select

   For n = 1 To DataSize
      ...
      'How to make this  ?
      call ProcPtr ' call procedure by using address ?
      ...
   Next n