Найти все симметричные натуральные числа (палиндромы) из промежутка от А до В

Function f(j)
Dim s As String
s = i
For j = 0 To Len(s) / 2
f(j) = Left(s, 1)
Next
End Function
Function q(k)
Dim s As String
s = i
For k = 0 To Len(s) / 2
f(k) = Right(s, 1)
Next
End Function
 
Private Sub Command1_Click()
Picture1.Cls
a = Val(Text1)
b = Val(Text2)
For i = a To b
If f(j) = f(k) Then
    Picture1.Print i
   Else
    Picture1.Print "Íåò òàêèõ ÷èñåë"
   End If
Next
End Sub

Private Sub Command1_Click()
dim i&,s$,f&
Picture1.Cls
For i = Text1 To Text2
    s=i
    If s = StrReverse(s) Then
        Picture1.Print i 'или s
        f=1
    End If
Next
if f=0 then Picture1.Print "Нет таких чисел"
End Sub

Sub main()
a = 0
b = 999
For i& = a To b
  If Is_Палиндром(i) Then Debug.Print i
Next i
End Sub
 
Function Is_Палиндром(X As Long) As Boolean
Dim i As Integer, s As String
s = CStr(X)
For i = 1 To Len(s) / 2
  If Mid$(s, i, 1) <> Mid$(s, Len(s) - i + 1, 1) Then Exit Function
Next i
Is_Палиндром = True
End Function