hola estoy haciendo un programa que transforme de decimal a hexadecimal
se compone por un texbox donde va el numero que introduce el usuario
el boton de convertir ahi va el codigo
y un label de resultado el codigo que he hecho es este
Dim d4 As String
Dim h As String
Dim S As Long
Dim x As Integer
dim far as integer
far = ""
d4 = Val(Text1)
While S > 1
d4 = d4 & Trim(Str(A Mod 16))
S = Int(S / 16)
If d4 = 10 Then
d4 = "A" & far
Else
If d4 = 11 Then
d4 = "B" & far
Else
If d4 = 12 Then
d4 = "C" & far
Else
If d4 = 13 Then
d4 = "D" & far
Else
If d4 = 14 Then
d4 = "E" & far
if d4 = 15 then
d4= "F" &far
end if
End If
End If
End If
End If
End If
Wend
For x = Len(d4) To 1 Step -1
h = h & Mid(d4, x, 1)
Next x
Label3 = h
lo que me aturde
es que no me pone la respuesta en el label ya probe conviertiendolo de decimal a octal que ya lo tenía hecho en otro programa y funciona de maravilla en el programa pero en este no me tira el resulrtado tampoco por favor que puedo hacer