すいませんうち間違えてました。

Dim a As Integer '現時間
    Static b As Integer '合計時間格納
    Static c As Integer '前時間
    Dim d As Integer 
    Dim e As Integer 
    Dim f As Integer
        f = Val(UserForm1.TextBox1.Text) - 1
    '現時間
    If UserForm1.TextBox1.Text + 1 Then
        a = (Minute(Time) * 60) + Second(Time)
    End If
    
    '秒合わせ
    If d < c Then
        Val (a) + 3600
    End If
    
    算出
    If UserForm1.TextBox1.Text + 1 Then
    d = a - c                            ←ここ間違えてました。
    If d = -a Then
       d = 0
    End If
    b = b + d 'bは合計時間
    e = b / f　　　　　　　　　　　　　　　←ここでオーバーフロー
    UserForm1.TextBox8 = Round(e, 1)
    c = a '現時間代入
    End If

親切にご回答ありがとうございます。
初心者なものでご迷惑おかけしております。
このプログラムだと０の除算がなんとかってエラーが出ました。
申し訳ないです。
どう改善すれば良いかご指導お願いします。