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 = c - a 
    If d = -a Then
       d = 0
    End If
    b = b + d 'bは合計時間
    e = b / f　　　　　　　　　　　　　　　←ここでオーバーフロー
    UserForm1.TextBox8 = Round(e, 1)
    c = a '現時間代入
    End If


オーバーフローしてしまいます。
どうすればよいでしょう。
時間の差をだしたい。