คำสั่ง Excel VBA การเก็บตัวแปร <,>,=,<> ไปเปรียบเทียบ

ตามหัวข้อครับ คือถ้าสมมุติผมจะเก็บตัวแปรในช่อง A1 ซึ่งคืออักษร <,>,=,<> แล้วเอาไปเทียบในคำสั่งIf ... then เพื่อหาคำตอบจากเซลล์ A2 และ A3 จะทำยังไงครับ

คำสั่งครับ  
Sub Test()
   Dim d as string
   d = range("A1").value
   if range("A2").value & d & range("A3").value then
     msgbox "True"
   else
     msgbox "False"
   end
คือมันขึ้นว่า Type mismatch อะครับแล้วโฟกัสไปที่ช่อง If ต้องทำยังไงครับที่จะให้เก็บค่าตัวเปรียบเทียบจากตารางแล้วเอามาใช้ในคำสั่ง if ได้
ขอขอบคุณล่วงหน้าครับ