Este es el codigo que debe de ir en mi modulo:
Public Function operadores16u8(varConversion) As String
Dim response As String
Select Case varConversion
Case Val(varConversion) > 255 ' entra en el caso de que sea de 16
intDectoHex = Convert(varConversion, 10, 16)
'varConversion1 = "&H" & varConversion
'intDectoHex = CInt(varConversion1)
tamCantidad = Len(intDectoHex)
Select Case tamCantidad
Case tamCantidad = 3
tamCantidadTotal = "&0" & tamCantidad
Case tamCantidad = 4
tamCantidadTotal = tamCantidad ' la variable tamCantidadTotal guarda el tamaño total de 16
End Select
Case Val(varConversion) < 255 ' entra en caso de que sea de 8
intDectoHex = Convert(varConversion, 10, 16)
tamCantidad = Len(intDectoHex)
If tamCantidad = 2 Then
tamCantidadTotal = "00" & intDectoHex
Else: tamCantidad = 1
tamCantidadTotal = "000" & tamCantidad
End If
operadores16u8 = tamCantidadTotal
End Select
End Function
----------------------------------------
Y lo llamo desde mi Form1 asi:
response = operadores16u8(varConversion)
y me sigue diciendo que no esta declarada mi funcion
al momento de llamar la funcion escrita en el modulo.
Estaria en deuda con su valiosa colaboracion, por que creo que es lo mismo que me sugieren que haga
