I removed all of the references to Microsoft.VisualBasic, so I'll try this:
Public Shared Function IntToHex(ByVal data As Integer) As String
If data < 0 Then
Return data.ToString("X").Substring(4)
Else
Return data.ToString("X").PadLeft(4, "0"c)
End If
End Function