longueur sur 2 caractères

bonjour,
g besoin de mettre une longueur (supérieure à 255) sur 2 caractères mais je sais pas du tout comment faire.
j'ai essayé en calculant 2 valeurs comprises entre 1 et 255 et en les multipliant mais certaines valeurs font chier (991 par exemple) et donc j'ai besoin de votre aide car je ne veux pas passer par un fichier dans lequel je stoquerais un integer en binaire car c'est pas propre....

merci d'avance...

non c bon g trouvé chui bête.... si jamais kelk'un en a besoin voici la fonction :
Public Function getLenSur2Octets(Chaine As String) As String
For i = 0 To 255
For j = 0 To 255
If i + (j * 255) = Len(Chaine) Then
getLenSur2Octets = Chr(i) & Chr(j)
Exit Function
End If
Next j
Next i
End Function

c tout con j'avais juste oublié de brancher mon cerveau ;)

-------------------------------
Réponse au message :
-------------------------------

bonjour,
g besoin de mettre une longueur (supérieure à 255) sur 2 caractères mais je sais pas du tout comment faire.
j'ai essayé en calculant 2 valeurs comprises entre 1 et 255 et en les multipliant mais certaines valeurs font chier (991 par exemple) et donc j'ai besoin de votre aide car je ne veux pas passer par un fichier dans lequel je stoquerais un integer en binaire car c'est pas propre....

merci d'avance...