Shorten VBA Code......!!!!

Hello Experts

I have a below code & i want to shorten it.

Any suggestion / help would be greatly appreciated

Private Sub ComboBox51_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox51.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox11.Locked = False
TextBox11.Value = rngFindRange.Offset(0, 1)
TextBox11.Locked = True
TextBox31.Locked = False
TextBox31.Value = rngFindRange.Offset(0, 2)
TextBox31.Locked = True
TextBox81.Locked = False
TextBox81.Value = rngFindRange.Offset(0, 4)
TextBox81.Locked = True
End If
End Sub

Private Sub ComboBox52_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox52.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox12.Locked = False
TextBox12.Value = rngFindRange.Offset(0, 1)
TextBox12.Locked = True
TextBox32.Locked = False
TextBox32.Value = rngFindRange.Offset(0, 2)
TextBox32.Locked = True
TextBox82.Locked = False
TextBox82.Value = rngFindRange.Offset(0, 4)
TextBox82.Locked = True
End If
End Sub

Private Sub ComboBox53_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox53.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox13.Locked = False
TextBox13.Value = rngFindRange.Offset(0, 1)
TextBox13.Locked = True
TextBox33.Locked = False
TextBox33.Value = rngFindRange.Offset(0, 2)
TextBox33.Locked = True
TextBox83.Locked = False
TextBox83.Value = rngFindRange.Offset(0, 4)
TextBox83.Locked = True
End If
End Sub

Private Sub ComboBox54_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox54.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox14.Locked = False
TextBox14.Value = rngFindRange.Offset(0, 1)
TextBox14.Locked = True
TextBox34.Locked = False
TextBox34.Value = rngFindRange.Offset(0, 2)
TextBox34.Locked = True
TextBox84.Locked = False
TextBox84.Value = rngFindRange.Offset(0, 4)
TextBox84.Locked = True
End If
End Sub

Private Sub ComboBox55_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox55.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox15.Locked = False
TextBox15.Value = rngFindRange.Offset(0, 1)
TextBox15.Locked = True
TextBox35.Locked = False
TextBox35.Value = rngFindRange.Offset(0, 2)
TextBox35.Locked = True
TextBox85.Locked = False
TextBox85.Value = rngFindRange.Offset(0, 4)
TextBox85.Locked = True
End If
End Sub

Private Sub ComboBox56_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox56.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox16.Locked = False
TextBox16.Value = rngFindRange.Offset(0, 1)
TextBox16.Locked = True
TextBox36.Locked = False
TextBox36.Value = rngFindRange.Offset(0, 2)
TextBox36.Locked = True
TextBox86.Locked = False
TextBox86.Value = rngFindRange.Offset(0, 4)
TextBox86.Locked = True
End If
End Sub

Private Sub ComboBox57_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox57.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox17.Locked = False
TextBox17.Value = rngFindRange.Offset(0, 1)
TextBox17.Locked = True
TextBox37.Locked = False
TextBox37.Value = rngFindRange.Offset(0, 2)
TextBox37.Locked = True
TextBox87.Locked = False
TextBox87.Value = rngFindRange.Offset(0, 4)
TextBox87.Locked = True
End If
End Sub

Private Sub ComboBox58_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox58.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox18.Locked = False
TextBox18.Value = rngFindRange.Offset(0, 1)
TextBox18.Locked = True
TextBox38.Locked = False
TextBox38.Value = rngFindRange.Offset(0, 2)
TextBox38.Locked = True
TextBox88.Locked = False
TextBox88.Value = rngFindRange.Offset(0, 4)
TextBox88.Locked = True
End If
End Sub

Private Sub ComboBox59_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox59.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox19.Locked = False
TextBox19.Value = rngFindRange.Offset(0, 1)
TextBox19.Locked = True
TextBox39.Locked = False
TextBox39.Value = rngFindRange.Offset(0, 2)
TextBox39.Locked = True
TextBox89.Locked = False
TextBox89.Value = rngFindRange.Offset(0, 4)
TextBox89.Locked = True
End If
End Sub

Private Sub ComboBox60_Change()
Dim rngFindRange As Range
Set rngFindRange = Sheets("Balance Payable").Range("B:F").Find(ComboBox60.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFindRange Is Nothing Then
TextBox20.Locked = False
TextBox20.Value = rngFindRange.Offset(0, 1)
TextBox20.Locked = True
TextBox40.Locked = False
TextBox40.Value = rngFindRange.Offset(0, 2)
TextBox40.Locked = True
TextBox90.Locked = False
TextBox90.Value = rngFindRange.Offset(0, 4)
TextBox90.Locked = True
End If
End Sub