Tente assim:
Dim dia_vencimento As Date = CDate("27/12/2020")
Dim dia_pagamento As Date = CDate("31/12/2020")
Dim valor_pagar As Double = 1653.28
Dim multa_ao_dia As Single = 0.005 'meio porcento ao dia
Dim atraso As Integer = CInt(DateDiff(DateInterval.Day, dia_vencimento, dia_pagamento))
If dia_vencimento.ToString("dddd") = "domingo" Then ' ou dia_vencimento.DayOfWeek = 0 --> 1=segunda-feira, etc
atraso -= 1
End If
If atraso > 0 Then 'neste exemplo o vencimento é domingo em vez de 4 dias de atraso são consiferados 3 dias
MsgBox("Pagamento em atraso de " & atraso.ToString & " dias." & vbCrLf &
"Valor inicial = " & valor_pagar.ToString("C") & vbCrLf &
"Multa calculada = " & CDec(valor_pagar * multa_ao_dia * atraso).ToString("C") & vbCrLf &
"Valor a pagar = " & CDec(valor_pagar * (1 + multa_ao_dia * atraso)).ToString("C"))
End If
MARIANO1776