VB6 Problem

iz napisanega sklepam, da so črke vedno iste torej se v "od-do" nizu spreminjajo samo številke... če je tako potem enostavno odstraniš številke ven iz stringa in nardiš preprost loop... tuki sm ti čist na hitr napisu neki sam tko da vidiš približn kako bi šlo tole... mal popravi da bo pogledalo še če so črke enake in to je to....

Private Sub Command1_Click()
Dim x As String, y As String, z() As String
x = "AB1234-AB1299" 'niz "od-do"
y = "AB1255" 'iskani niz
if instr(1,x,"-") then 'pogleda če je od-do al samo en niz
z = Split(x, "-")
For i = GetNumberOut(z(0)) To GetNumberOut(z(1))
If GetNumberOut(y) = i Then MsgBox "yupi."
Next i
else
if x=y then msgbox "yupi."
end if
End Sub

Public Function GetNumberOut(ByVal str As String) As Long
Dim strTmp
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then strTmp = strTmp & Mid(str, i, 1)
Next i
GetNumberOut = CLng(strTmp)
End Function