Private Sub avgBtn_Click()
    Dim range1 As String
    Dim newdate As String

    range1 = TextBox3.Value + "," + TextBox1.Value + " " + TextBox2.Value + "," + TextBox4.Value


    newdate = range1

   Label7.Caption = newdate

 End Sub

 Private Sub cancelBtn_Click()
     Unload Task2
 End Sub


 Private Sub CommandButton1_Click()
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""

   End Sub


 Private Sub UserForm_Click()
     Unload UserForm1
 End Sub

Sub CommandButton2_Click()
    Dim myCell As Range

  Set myCell = Nothing
  On Error Resume Next
  Set myCell = Range(Me.RefEdit1.Value).Areas(1).Cells(1)
  myCell.value = newdate

End Sub