效果显示：

Private Sub Text1_Change()

Text2.Text = CStr(Text1.Text)     '转字符串

Text3.Text = Val(Text1.Text)       '转为数字

End Sub

备注：

1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()；

2、CStr()函数，数字转换为字符串。