Visual Basic Problema na Logica de um Palíndromo

[matheuszdk]

Olá amigos, preciso fazer um algoritmo que que leia um número (1 < número < 10000) e caso ele não seja um número palíndromo, apontar qual o número palíndromo mais próximo antes dele.

 

Sub palindromo()
    Dim num As Integer
    Dim num10 As Integer
    Dim nume As Integer
    Dim cont As Integer
    Dim arm As Integer
    Dim cont100 As Integer
    Dim cont1000 As Integer
    Dim nume100 As Integer
    Dim nume1000 As Integer
    Dim vl100 As Integer
    
        num = InputBox("Insira um número entre 0 e 10000")
        nume = num
        arm = num
        num10 = num
        nume100 = num
        nume1000 = num
        If num >= 1 And num <= 10000 Then
            'MsgBox ("O número inserido é correto")
        Else
            MsgBox ("O número é invalido, insira um número correto")
        End If
        
            If num <= 9 Then
            MsgBox ("O número digitado é palindromo")
            Else
                If num = 10 Then
                    num10 = num10 - 1
                    MsgBox ("O palíndromo mais proximo é : " & nume10)
                End If
            End If
                If nume >= 11 And nume <= 100 Then
                    nume = nume Mod 11
                    'MsgBox ("número: " & nume)
                    If nume = 0 Then
                    MsgBox ("O número digitado é palindromo")
                    Else
                    cont = arm Mod 10
                    arm = num - nume
                    MsgBox ("O palíndromo mais proximo é : " & arm)
                    End If
                End If
                    If nume100 > 100 And nume100 < 1000 Then
                    
                    MsgBox
                    End If
                    
End Sub

 

 

OBS: eu fiz essas outras variáveis para os números entre 100 e 1000 e 1000 e 10000.

OBS2: de 11 a 100 todos os palíndromos que existem podem ser divisíveis por 11 então fica fácil encontrar

OBS3: preciso de ajudar para criar um regra para números entre 100 e 1000 ~~ 10000

OBS4: e sim ainda tenho problemas com a minha lógica 

Agradeço qualquer dica ou caminho que eu devo seguir