Boa Noite

Adaptei está planilha para as minhas necessidades e está dando este erro quando eu clico nos botoes.

o erro esta com este comando destacado em amarelo

Private Sub BtnObrigatorio_Click()

If TxtDia = "" Then
        geraRelatorioObrigatorioMensal vMes, TxtAno
        docTipo = "PGTO OBRIGATORIO_" & UCase(ComboMês) & "_" & TxtAno
   
    End If

    Dim somaTotal As Double
    
    For a = 1 To ListView1.ListItems.Count
        [color=#FFFF00]somaTotal = somaTotal + Format(ListView1.ListItems(a).ListSubItems(4), "currency")[/color]
    Next
    
    TxtTotal = Format(somaTotal, "currency")

end sub

em anexo a planilha com erro