Public Function Dec2Hex(ByVal Dec As Integer) As String
 
        Dim Convert As String = Dec.ToString("X")
 
        If Convert.Length < 4 Then
            Do Until Convert.Length = 4
                Convert.Insert(0, 0)
            Loop
        End If
 
        If Convert.Length = 4 Then
            Return Convert
        Else
            Return "0000"
        End If
 
    End Function