Correct VBA CODE

Good evening I make a vba code for my project
if I repter the same code for each line it takes time and can be more complicated
anyone want to help me simplify the shortest code for all online for same example as I do


this code is for only 2 ligne but ihave 13 ligne

Private Sub TextBox1_Change()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim B1 As Integer
Dim C1 As Integer


If TextBox1.Value <> "" And TextBox13.Value <> "" And TextBox37.Value <> "" And TextBox121.Value <> "" And TextBox25.Value <> "" And TextBox49.Value <> "" Then
A = TextBox1.Value
B = TextBox13.Value
C = TextBox37.Value
B1 = TextBox25.Value
C1 = TextBox49.Value
D = TextBox121.Value
TextBox61.Value = (A - B) + ((0.5 * D) - C)
TextBox73.Value = (A - B1) + ((0.5 * D) - C1)
End If
End Sub
Private Sub TextBox25_Change()
Dim A As Integer
Dim B1 As Integer
Dim C1 As Integer
Dim D As Integer

If TextBox1.Value <> "" And TextBox25.Value <> "" And TextBox49.Value <> "" And TextBox121.Value <> "" Then
A = TextBox1.Value
B1 = TextBox25.Value
C1 = TextBox49.Value
D = TextBox121.Value
TextBox73.Value = (A - B1) + ((0.5 * D) - C1)

End If
End Sub
Private Sub TextBox49_Change()
Dim A As Integer
Dim B1 As Integer
Dim C1 As Integer
Dim D As Integer

If TextBox1.Value <> "" And TextBox25.Value <> "" And TextBox49.Value <> "" And TextBox121.Value <> "" Then
A = TextBox1.Value
B1 = TextBox25.Value
C1 = TextBox49.Value
D = TextBox121.Value
TextBox73.Value = (A - B1) + ((0.5 * D) - C1)

End If
End Sub
Private Sub TextBox13_Change()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer



If TextBox1.Value <> "" And TextBox13.Value <> "" And TextBox37.Value <> "" And TextBox121.Value <> "" Then
A = TextBox1.Value
B = TextBox13.Value
C = TextBox37.Value
D = TextBox121.Value
TextBox61.Value = (A - B) + ((0.5 * D) - C)

End If
End Sub
Private Sub TextBox37_Change()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer

If TextBox1.Value <> "" And TextBox13.Value <> "" And TextBox37.Value <> "" And TextBox121.Value <> "" Then

A = TextBox1.Value
B = TextBox13.Value
C = TextBox37.Value
D = TextBox121.Value
TextBox61.Value = (A - B) + ((0.5 * D) - C)

End If
End Sub

Private Sub TextBox2_Change()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim B1 As Integer
Dim C1 As Integer
Dim D As Integer

If TextBox2.Value <> "" And TextBox14.Value <> "" And TextBox38.Value <> "" And TextBox121.Value <> "" And TextBox26.Value <> "" And TextBox50.Value <> "" Then
A = TextBox2.Value
B = TextBox14.Value
C = TextBox38.Value
B1 = TextBox26.Value
C1 = TextBox50.Value
D = TextBox121.Value

TextBox62.Value = (A - B) + ((0.5 * D) - C)
TextBox74.Value = (A - B1) + ((0.5 * D) - C1)
End If
End Sub
Private Sub TextBox26_Change()
Dim A As Integer
Dim B1 As Integer
Dim C1 As Integer
Dim D As Integer

If TextBox2.Value <> "" And TextBox26.Value <> "" And TextBox50.Value <> "" And TextBox121.Value <> "" Then
A = TextBox2.Value
B1 = TextBox26.Value
C1 = TextBox50.Value
D = TextBox121.Value

TextBox74.Value = (A - B1) + ((0.5 * D) - C1)
End If
End Sub
Private Sub TextBox50_Change()
Dim A As Integer
Dim B1 As Integer
Dim C1 As Integer
Dim D As Integer

If TextBox2.Value <> "" And TextBox26.Value <> "" And TextBox50.Value <> "" And TextBox121.Value <> "" Then
A = TextBox2.Value
B1 = TextBox26.Value
C1 = TextBox50.Value
D = TextBox121.Value

TextBox74.Value = (A - B1) + ((0.5 * D) - C1)
End If
End Sub
Private Sub TextBox14_Change()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer

If TextBox2.Value <> "" And TextBox14.Value <> "" And TextBox38.Value <> "" And TextBox121.Value <> "" Then
A = TextBox2.Value
B = TextBox14.Value
C = TextBox38.Value
D = TextBox121.Value

TextBox62.Value = (A - B) + ((0.5 * D) - C)
End If
End Sub

Private Sub TextBox38_Change()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer

If TextBox2.Value <> "" And TextBox14.Value <> "" And TextBox38.Value <> "" And TextBox121.Value <> "" Then
A = TextBox2.Value
B = TextBox14.Value
C = TextBox38.Value
D = TextBox121.Value

TextBox62.Value = (A - B) + ((0.5 * D) - C)
End If
End Sub