Private Sub Image_Erase_Click()
     If Len(Electronic_Payment.TextBox1) < 2 Then
     MsgBox "الرجاء كتابة اسم أول خلية  " & vbNewLine & _
     "والتى سيتم مسح البيانات من بدايتها ، بشكل صحيح ", vbMsgBoxRight + 16, ""
     Exit Sub: End If

  Electronic_Payment.Hide
  ThisWorkbook.Worksheets("ElectronicPayment").Activate

Dim LR As Integer
LR = ThisWorkbook.Worksheets("ElectronicPayment").[L6].Value

Dim cl_1 As String
cl_1 = ThisWorkbook.Worksheets("ElectronicPayment").[L8].Value

          ActiveSheet.Range(cl_1).ClearContents
  
        
     MsgBox "تم مسح الخلايا فى العمود المحدد", vbMsgBoxRight + 64, ""
        
Exit Sub
ErrMsg: MsgBox " ـ لـم يـتـم تـنـفـيـذ الـمـطـلـوب ـ ", 16 + vbMsgBoxRight, ""</span></span></span></strong></em></div>

<div style="text-align: left;"> </div>

<div style="direction: ltr;"><em><strong><span style="color:#008000;"><span style="font-size:20px;"><span style="font-family: Arial; font-weight: bold; vertical-align: baseline;"><em style="text-indent: 0in;"><strong><span style="vertical-align: baseline;">End Sub