private sub(noob)
dim f4g as h0m0
If f4g.value = "Type-R" then
msgbox("IA <> realtor.com")
End If
end sub