No between keyword but you can use the case statement.
Select Case txtcode
Case "1000" To "1999"
do something
Case else
do something else
End Select
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."