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,

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