文本框没有代码项目一说。你可以用dataformat事件处理
If e.value = "1" Then e.value = "值1"ElseIf e.value = "2" Then e.value = "值2"Else e.value = "没有对应值"End If