Cita:
Iniciado por sagutxo 
Salu2.
Creo que tu problema simplemente es:
pones label3=h
es label3.Caption=h
Espero que solo sea eso.
No! el problema no es ese, funciona igual Label3 = h que Label3.Caption = h
Contestando a sawamurakenji (vaya nombrecito, me ha costado escribirlo):
El código, tal y como lo pones, tiene algunos errores; primero declaras la variable "far" como integer y a continuación le asignas una cadena vacía, con lo cual tiene que dar un error de coincidencia de tipos, después declaras "s" como Long y no le asignas ningún valor (con lo cual el valor predeterminado es cero y nunca funcionará el bucle While s > 1)
Bueno, tomando como base tus variables, te pongo un ejemplo algo mas simple, para convertir un número decimal a hexadecimal (puedes ponerlo en una función que devuelva el hexa o en el evento click de un botón).
Código PHP:
Dim d4 As String
Dim s As Double
Dim h As String
d4 = Val(Text1)
h = ""
While d4 <> 0
s = d4 - (Int(d4 / 16) * 16)
If s < 10 Then
h = Chr(Asc(s)) & h
Else
h = Chr(Asc("A") + s - 10) & h
End If
d4 = Int(d4 / 16)
Wend
If h = "" Then h = "0"
Label3 = h
