Long
    
    sV = txtIn
    If IsNumeric("&amp;H" &amp; sV) Then sV = "&amp;H" &amp; sV
    sV = UCase$(sV)
    If sV &lt;&gt; txtIn Then txtIn = sV
    If Not IsNumeric(sV) Then
        Beep
        Exit Sub
    End If
    l = sV
    
'    txtLO = "&amp;H" &amp; Right$("00000000" &amp; Hex$(VBLOWORD(l)), 8)
'    txtHI = "&amp;H" &amp; Right$("00000000" &amp; Hex$(VBHIWORD(l)), 8)
    txtLO = "&amp;H" &amp; Right$("00000000" &amp; Hex$(LOWORD(l)), 8)
    txtHI = "&amp;H" &amp; Right$("00000000" &amp; Hex$(