CALCULADORA

ESTOS SON LOS CODIGOS QUE VAN EN EL SIGUIENTE PROGRAMA:Private Sub Command1_Click()Dim res As Long, retornoFor n = 1 To 10res = Text1 * nretorno = Chr(13) & Chr(10)Text2 = Text2 & Text1 & "x" & n & "=" & res & retornoNext nEnd Subel botón Nueva TablaPrivate Sub Command2_Click()Text1 = ""Text2 = ""Text1. SetFocusEnd SubEl Botón SalirPrivate Sub Command3_Click()If MsgBox ("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "Qué Ya Te Quieres Ir?")EndElseCancel = 1EndIfEnd Sub