Private Sub Callselector(ByVal SubId As Integer, param As Object)
 
        Select Case SubId
            Case 1 : Call vers1(param)
            Case 2 : Call vers2(param)
        End Select
    End Sub
 
    Private Sub vers1(Optional param As Object = Nothing)
 
    End Sub
 
    Private Sub vers2(Optional param As Object = Nothing)
 
    End Sub