Private Sub Text1_Change()
Text2.Text = CStr(Text1.Text) '转字符串
Text3.Text = Val(Text1.Text) '转为数字
End Sub
备注：
1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()；
2、CStr()函数，数字转换为字符串。
Private Sub Text1_Change()
Text2.Text = CStr(Text1.Text) '转字符串
Text3.Text = Val(Text1.Text) '转为数字
End Sub
备注：
1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()；
2、CStr()函数，数字转换为字符串。
