Excel Verificar número primo VBA

[Jeff_Sandes]

Estou desenvolvendo uma aplicação em um software que é base VBA, tem um elemento que é uma Numeric Display, preciso que sempre que o número que apareça nessa Numeric Display for um numero primo, ele vai executar outra parte do código, tentei com uma função (Gerada pelo ChatGPT) e não funcionou (Como era de se esperar). Queria evitar uso de funções, pois o software é bem limitado e fácil de causar erros por problemas de compilação, segue o código abaixo.

Private Sub Sekunden_Change()
    On Error GoTo ErrorHandler
    If Synchronizer(Sekunden.Value) Then
        ExecuteCommand "DataWrite"
    Else
        ExecuteCommand "DataRead"
    End If
    Exit Sub
ErrorHandler:
    LogDiagnosticsMessage Err.Description, ftDiagSeverityError
End Sub
Function Synchronizer(ByVal Numero As Integer) As Boolean
    Dim i As Integer
    If Numero < 2 Then
        IsPrimo = False
        Exit Function
    End If
    For i = 2 To Int(Sqr(Numero))
        If Numero Mod i = 0 Then
            IsPrimo = False
            Exit Function
        End If
    Next i
    IsPrimo = True
End Function

 

[Midori]

@Jeff_Sandes Sua função vai retornar sempre False já que não atribuiu nada a Synchronizer. Faça a atribuição Synchronizer = IsPrimo no fim e deixe IsPrimo = True depois do If e antes do loop.

[Midori]

@Jeff_Sandes Outra forma mais simples de resolver é atribuir True a função no fim, Synchronizer = True, e remover todas as linhas onde tem IsPrimo.