VB中怎么简化重复命令

例如 我的VB程序里有如下命令：

Dim xlapp As Excel.Application 'Excel对象

Dim xlbook As Excel.Workbook '工作簿

Dim xlsheet As Excel.Worksheet '工作表

Private Sub Command1_Click()

Set xlapp = CreateObject("Excel.Application") 

Set xlbook = xlapp.Workbooks.Open("D:\新建文件夹 (2)\添加表(2).xlsm")

xlapp.Visible = False 

Set xlsheet = xlbook.Worksheets("窗口") 

xlsheet.Cells(1, 2) = Text1.Text

xlsheet.Cells(4, 2) = Text3.Text

xlsheet.Cells(2, 2) = Text2.Text & " " & "FF"

xlapp.Run "Sheet1.js2"

Text6.Text = xlsheet.Cells(3, 2).Value

xlbook.Save

xlbook.Close

xlapp.Quit 

Set xlapp = Nothing 

End Sub

Private Sub Command2_Click()

Set xlapp = CreateObject("Excel.Application") 

Set xlbook = xlapp.Workbooks.Open("D:\新建文件夹 (2)\添加表(2).xlsm")

xlapp.Visible = False 

Set xlsheet = xlbook.Worksheets("窗口") 

xlsheet.Cells(1, 2) = Text1.Text

xlsheet.Cells(4, 2) = Text3.Text

xlsheet.Cells(2, 2) = Text2.Text & " " & "AA"

xlapp.Run "Sheet1.js2"

Text6.Text = xlsheet.Cells(3, 2).Value

xlbook.Save

xlbook.Close

xlapp.Quit 

Set xlapp = Nothing 

End Sub

Private Sub Command3_Click()

Set xlapp = CreateObject("Excel.Application") 

Set xlbook = xlapp.Workbooks.Open("D:\新建文件夹 (2)\添加表(2).xlsm")

xlapp.Visible = False 

Set xlsheet = xlbook.Worksheets("窗口") 

xlsheet.Cells(1, 2) = Text1.Text

xlsheet.Cells(4, 2) = Text3.Text

xlsheet.Cells(2, 2) = Text2.Text & " " & "CC"

xlapp.Run "Sheet1.js2"

Text6.Text = xlsheet.Cells(3, 2).Value

xlbook.Save

xlbook.Close

xlapp.Quit 

Set xlapp = Nothing 

End Sub

我有很多按钮，Command1.Command2.Command3........

但是我每个按钮里只有“  xlsheet.Cells(2, 2) = Text2.Text & " " & "CC" ” 这一句的最后面的 AA BB CC DD有变化，我怎么简化我的其它内容操作呢？最好就是在每个按钮里只输入一句 “xlsheet.Cells(2, 2) = Text2.Text & " " & "XX" ”就可以~

请各位大神指教