VB文本框输入汉字的问题

本人实在不懂。

在网上下载一段VB文本框输出到excel的代码

代码如下：

Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "请输入数字。"
Text1.SetFocus
Exit Sub
End If

Dim Row As Long
Dim ExlApp As Object
Dim ExlBook As Object
Dim ExlSheet As Object

Set ExlApp = CreateObject("Excel.Application")
Set ExlBook = ExlApp.WorkBooks.Open("D:\md.xls")
Set ExlSheet = ExlBook.WorkSheets(1)

Row = 1
Do Until ExlSheet.Cells(Row, 1).Text = ""
Row = Row + 1
Loop
ExlSheet.Cells(Row, 1).Value = Val(Text1.Text)

ExlApp.DisplayAlerts = False
ExlApp.Save
ExlApp.Quit

Set ExlSheet = Nothing
Set ExlBook = Nothing
Set ExlApp = Nothing

MsgBox "保存成功"
E

vb文本框的问题? VB中如何限定文本框的输入？ vb 问题，关于文本框的 VB使用文本框的问题 vb 的问题 文本框的问题 VB文本框的问题,很简单的 vb文本框控件数组的问题。 VB 关于设置文本框格式的问题 VB的文本框怎样能够竖着输入文字啊?? vb中能在文本框设置输入的格式吗？