funzione kiama sub!

[sms]

Dovrei creare una funzione del tipo

Function Controlla (SubDaChiamare As Sub(??))
If qualcosa
SubDaChiamare
End If
End Function

oppure sub chiama sub
Sub Controlla (SubDaChiamare As Sub(??))
If qualcosa
SubDaChiamare
End If
End Sub

è possibile?