Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    Dim TBkei As Variant
    Dim N As Variant
    Dim N1 As Variant
    Dim N2 As Variant
    Dim T As Variant
    Dim T1 As Variant
    Dim S As Variant
    Dim K As Variant
    Dim P As Variant
    Dim P1 As Variant
    Dim P2 As Variant
    Dim H As Variant
    Dim M As Variant
    Dim M1 As Variant
    Dim M2 As Variant
    Dim M3 As Variant
    Dim Total As Variant
    
    TBkei = 0                  '合計値
    N = Val(TextBox1.Value)    '入力値
    N1 = Int(N)                '入力値の整数
    N2 = Round(N - N1, 2)      '入力値の少数以下値
    
    If TBkei <> 0 Then
       T = Int(TBkei)          '合計値の整数
    Else
       T = 0
    End If

    T1 = TBkei - T             '合計値の少数以下値
    S = N2 + T1                '入力値と合計値の少数以下の合計

    If S >= 0.6 Then K = 1     '小数値の合計が0.6か0.6以上なら1時間繰り上がる
    If S < 0.6 Then K = 0      '繰り上がりなし

    If K = 1 Then
       Total = N1 + T + T1 + S + K - 0.6
    Else
       Total = N1 + T + T1 + S
    End If
    
    TBkei = Total
    P = TBkei
    P1 = N1
    P2 = N2

    H = Int(Total)
    M1 = Round(Total - H, 2)
    M2 = Mid(M1, 4, 2)
    M3 = Len(M1)
    If M3 = 3 Then M = M2 & "0"
    If M3 = 4 Then M = M1 * 100
    
    keisan.TBkei.Value = TBkei
    TJ.Value = H & "h " & M & "m"
    
End Sub