VBA文字方塊計算

請問一下VBA要設計表單上文字方塊會依序顯示記算結果，不過手動修改方塊內容數量時，後續方塊數量也會跟著改變(如圖案) TB1為總量TB2至TB6為計算方塊，例如:當TB1總量輸入50000時，TB2就會自動帶出總量50000則其他方塊就只會顯示0，不過將TB2以手動修改為30000時，此時TB3就會自動帶出剩下的20000而TB4至TB6只會顯示0，如果在把TB3手動改為10000時，則TB4就會帶出剩下10000以此類推。
能否請問一下當我TB1輸入空白鍵或自輸入數字之後將數量全部←Backspace時就會跳出 執行階段錯誤"13" 型態不符合訊息是否正常，要如何修改才不會出現錯誤訊息
。

Private Sub TB1_Change()
TB2.Text = TB1.Text
End Sub
----------------------------------------------------------------------------
Private Sub TB2_Change()
TB3.Text = TB1.Text - TB2.Text
End Sub
----------------------------------------------------------------------------
Private Sub TB3_Change()
TB4.Text = TB1.Text - TB2.Text - TB3.Text
End Sub
----------------------------------------------------------------------------
Private Sub TB4_Change()
TB5.Text = TB1.Text - TB2.Text - TB3.Text - TB4.Text
End Sub
----------------------------------------------------------------------------
Private Sub TB5_Change()
TB6.Text = TB1.Text - TB2.Text - TB3.Text - TB4.Text - TB5.Text
End Sub