事实上，在B =阵列（...）数组参数短语的主要问题是2,5,3，所以这些整数数组（）函数的返回值类型的一个变种，而不是塑料。在指定的子数组参数的定义是一个整数，导致类型不匹配错误。
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名注册、虚拟主机、营销软件、网站建设、广德网站维护、网站推广。
使用下面的方法解决这个问题：
定义函数的参数类型，
。私人小组代码（1为ByRef（带），作为字符串BYVAL myStr中）
你提到的原因，后的ByRef参数类型不匹配，因为默认情况下是作为一个参数传递的函数地址，你的第二个参数myStr的前面不限制转让其参数，系统，与前一个（）相同的地址，已成为通过轻轻是一个错误，只要在前面加1 BYVAL。
后的代码如下（调试通过）：
选项??基地1
。私人小组代码（1为ByRef（带），作为字符串BYVAL myStr中）
？？作为字符串昏暗的通道，C1为字符串
？N = UBound的（一） - LEN（myStr中）
？如果N 0？
？？？myStr的= myStr的字符串$（“*”）
？？结束如果
？？CH = myStr的
？？对于k = 1，UBound的（一）
？？？C1 = MID（myStr中，K，1）
？？？N = A（K）
？？？中$（CH，N）= C1
K-？
？？myStr的= CH
？打印myStr的？
END SUB
私人小组Command1_Click（）
昏暗的b（）
B =阵列（2，5，3，7，6，1，4）
MYNAME =“克莱门特”
调用的代码（二MYNAME）
END SUB
这里有段VB6.0的，你可以参考。
注意添加引用。
Private Sub Command6_Click()
Dim i, j As Integer
Dim xlApplication As Excel.Application, xlWorkbook As Excel.Workbook, xlSheet
Dim xlApp As Excel.Application
On Error Resume Next
Set xlApplication = GetObject(, "Excel.Application")
Set xlApp = CreateObject("Excel.Application")
If MsgBox("确认将文件信息导出到EXCEL中？�", vbExclamation + vbYesNo, "警告") = vbYes Then
If Err.Number 0 Then Set xlApplication = CreateObject("Excel.Application")
Set xlWorkbook = xlApplication.Workbooks.Add
Set xlSheet = xlWorkbook.ActiveSheet
xlSheet.Cells(1, 2) = lblcl.Caption
xlSheet.Range("A1:E1").MergeCells = True
xlSheet.Range("A1:E1").HorizontalAlignment = xlCenter
xlSheet.Cells(2, 2).ColumnWidth = 18
For i = 1 To DataGrid1.Columns.Count
xlSheet.Cells(2, 1) = "编号"
xlSheet.Cells(2, i + 1) = DataGrid1.Columns(i).Caption
For j = 0 To DataGrid1.VisibleRows - 1
xlSheet.Cells(j + 3, 1) = j + 1
xlSheet.Cells(j + 3, i + 1) = DataGrid1.Columns(i).CellText(DataGrid1.RowBookmark(j))
Next j
Next i
xlApplication.Visible = True
Set xlSheet = Nothing
Set xlWorkbook = Nothing
Set xlApplication = Nothing
'xlApp.Range("A2:L2").Columns.Interior.ColorIndex = 40
'xlApp.Range("A2:L2").Borders.LineStyle = xlContinuous
'xlApp.Visible = True
'xlApp.Range(xlSheet.Cells(2 + PartsRs.RecordCount + 1, 1), xlSheet.Cells(2 + PartsRs.RecordCount + 1, 8)).Columns.Interior.ColorIndex = 40
'xlApp.Range(xlSheet.Cells(2 + PartsRs.RecordCount + 1, 1), xlSheet.Cells(2 + PartsRs.RecordCount + 1, 8)).Borders.LineStyle = xlContinuous
Else
MsgBox "无信息可供您导出，请确认!", vbExclamation + vbOKOnly, "警告"
End If
End Sub
把 TextBox2.Text = Chr(Val("H" B))
改为
TextBox2.Text =TextBox2.Text Chr(Val("H" B)) VbCrlf
试试？而且 TextBox2 的MultyLine属性要事先改为True
或者是：
TextBox2.Text =TextBox2.Text Chr(Val("H" B)) “ ”
