怎么在VB中粘贴excel得来的数据

Dim strArray1() As String
Dim strArray2() As String
Dim sinTemp As Single

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Text1 没有数据"
Exit Sub
End If

If Text2.Text = "" Then
MsgBox "Text2 没有数据"
Exit Sub
End If

ExecuteNum
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""

End Sub

Private Sub Text1_Change()
Dim strArrayTemp() As String
Dim i As Integer

ReDim strArray1(0)

strArrayTemp = Split(Text1.Text, vbCrLf)
For i = LBound(strArrayTemp) To UBound(strArrayTemp)
If Trim(strArrayTemp(i)) <> "" Then
If LBound(strArray1) = 0 And strArray1(0) = "" Then
strArray1(0) = st