Erro de calculo - Correção da condição IF

Bom dia, amigos, poderia me dar uma dica, eu montei um script aonde eu verifico o pedágio , a cobrança é feita a cada 100 kgs.

Eu montei a seguinte condição:

If Peso <= 100 Then
                       valorPedagio = Pedagio
                           Else
                If valorPedagio > 0 Then
                        qtdPedagio = (Peso \ 100) + 1
                        valorPedagio = Pedagio * qtdPedagio
                End If
                           

Porém ela não está calculando corretamente, a questão é se a mercadoria tiver até 100 kgs o valor base é R$ 5,88 (isso varia de transportadora) e se for mais tipo 500 Kgs, ele tem que pegar o peso dividir por 100 e multiplicar pela quantidade no caso seria 5.

Poderiam me ajudar?

Abs,

Bom dia Cláudio,

Pelo que eu entendi, é necessário separar as condições quando peso é até 100 kg e acima de 100 kg, conforme abaixo:

Código:




    '-- Calculo com peso até 100 kg ----------------
    If Peso <= 100 Then
        valorPedagio = Pedagio
        Exit Sub '-- após o cálculo, a rotina para aqui
    End If
    '-----------------------------------------------
   
   
    '-- Calculo com peso acima de 100 kg -----------
    If Peso > 100 Then
        If valorPedagio > 0 Then
            qtdPedagio = (Peso \ 100) + 1
            valorPedagio = Pedagio * qtdPedagio
        End If
    End If
    '-----------------------------------------------




Espero ter ajudado

Att

Alexandre Fim

Boa tarde
Como anda a dúvida?
O colega que ajudou ( e outros que tentaram) merecem uma resposta
Reveja a descrição, pois a primeira parte não combina com a segunda parte da sua descrição. Se existirem condições hierárquicas, descreva-as