Option Explicit

Public Sub CompareHexaDecimalString()

Dim HexSign As String
Dim str As String
Dim strComp1 As String
Dim strComp2 As String

Dim hex As Double
Dim hexComp1 As Double
Dim hexComp2 As Double

HexSign = "&H"

str = "807000FF"
strComp1 = "80000001"
strComp2 = "807FFFFF"

hex = HexSign & str
hexComp1 = HexSign & strComp1
hexComp2 = HexSign & strComp2

If hex >= hexComp1 And hex <= hexComp2 Then
    Debug.Print "Inside"
Else
    Debug.Print "Outside"
End If

End Sub

Public Sub CompareHexaDecimalString()

Dim str As String
Dim strComp1 As String
Dim strComp2 As String

str = "800000FF"
strComp1 = "80000001"
strComp2 = "807FFFFF"

If str >= strComp1 And str <= strComp2 Then
    Debug.Print "Inside"
Else
    Debug.Print "Outside"
End If

End Sub