VB 中关于传递字符——高手来

Question

在窗体上添加了一个 TextBox 控件，想实现如下功能：当在textbox里输入数据（人体的身高），比如：1600（不带单位），这个数据能以字符的形式："1600mm"传递到如下的程序代码的"shengao"位置：Set sWKAnthroVariable1 = sWKAnthro1.GetItem("<STATURE>")  sWKAnthroVariable1.ValueAsString = "shengao"怎么编写代码？哪位大侠指点一二，最好写详细点，本人初学，什么都不懂，谢谢了……！

Answer 1

Private Sub Text1_Change()
    Set sWKAnthroVariable1 = sWKAnthro1.GetItem("<STATURE>")
    sWKAnthroVariable1.ValueAsString = Val(Me.Text1.Text) & "mm"
End Sub