French classe ou modules cherche documentation ... diminution de la taille du code

Sub calc_hexa (in_hexa As Byte) As Char
    Dim out_hexa As Char = "0"    'if in_hexa not valid hex value, then return "?"
    If in_hexa >= 0 And in_hexa <= 15 Then
        out_hexa = "0123456789ABCDEF".CharAt(in_hexa)
    End If
    Return out_hexa
End Sub

Sub calc_hexa (in_hexa As Byte) As Char
    Dim out_hexa As Char = "?"    ' if in_hexa not valid hex value, then return "?"
    If in_hexa >= 0 And in_hexa <= 15 Then
        out_hexa = "0123456789ABCDEF".CharAt(in_hexa) ' retourne le caractère qui se trouve à la position in_hexa dans la chaine
    End If
    Return out_hexa
End Sub

Sub calc_hexa (in_hexa As Byte) As Char
    If in_hexa < 0 Or in_hexa > 15 Then return "?" ' if in_hexa not valid hex value, then return "?"
    return "0123456789ABCDEF".CharAt(in_hexa) ' retourne le caractère qui se trouve à la position in_hexa dans la chaine
End Sub

Sub calc_hexa (in_hexa As Byte) As Char
    return IIf(in_hexa < 0 Or in_hexa > 15, "?", "0123456789ABCDEF".CharAt(in_hexa))
End Sub

' suppression récursive du contenu d'un dossier
Public Sub DeleteFolderContent(folder As String)
    ...
End Sub

' Retourne l'extension d'un fichier
Public Sub getFileExt(fic As String) As String
    ...
End Sub

' Supprime l'extension d'un fichier
Public Sub removeFileExt(fic As String) As String
    ...
End Sub

' Decriptage AES
Public Sub AESDecrypt(str As String) As String
    ...
End Sub

' Encriptage AES
Public Sub AESEncrypt(str As String) As String
    ...
End Sub

Private util as utils
util.initialize
util.getFileExt("truc.zip") ' retourne "zip"

if Not(Initialized(Starter.panelClass)) then
    Starter.panelClass.Initialize(Me, ...) ' chargement du layout et init
End IF