对TextBox输入内容，条件判断限制输入（详见附件）

shangha

TextBox1
条件1 限制仅能输入8位小数，如：12345678；
条件2 如果输入非纯数字、必须以字母S开头，且必须至少有两个“-”符号，最少11个字符。
如：s-124243-11、S-224567-11-22-02-03、s-654321-11-22


Private Sub TextBox1_Change()    实现能输入数字、S和“-”，“、”。
Dim i%
Dim s$
With TextBox1
For i = 1 To Len(.Text)
s = Mid(.Text, i, 1)
Select Case s
Case ".", "-", "S", "s", "0" To "9"
Case Else

.Text = Replace(.Text, s, "")

End Select
Next
End With
End Sub

谢谢各位老师不吝指教！

HLAI