[RESOLVED] Trying to create a registration code with numbers and letters

[isnoend07]

Example:
Function DisectText(sText As String) As Boolean
Dim TextPart As String
Dim NumberPart As Long

'example 20K1W1E76N31606
End Function

need to verify that the user enters the correct text part of the string and
plan on checking the last 5 numbers between a given range;
eg;
if the last 5 digits (31606)
if the NumberPart is between 31606 and 32500
and the TextPart = KWEN
then DisectText =true
How would i write this code ?