统计输入的文本的字数？如何剔除空格字数呢？
高手提示使用MID函数

但具体怎么写呢？

谢谢！

窗体有一个TextBox和CommandButton

Private Sub Command1_Click()
MsgBox "输入了" & Len(Trim(Text1.Text)) & "个数"
End Sub

Trim()去除空格，Len()检测长度

Private Sub Command1_Click()
Dim strLen As Integer
Dim strMid As String
Dim i As Integer
Dim strTxt As String
strTxt = Trim$(Text1.Text)
For i = 1 To Len(strTxt)
strMid = Mid$(strTxt, i, 1)
If strMid <> " " Then
strLen = strLen + 1
End If
Next
Print strLen
End Sub

这个函数不是很好吗?
假设S为待去" "的字符串
S=Replace(s," ","")
就可以把所有的" "都去掉,而且不用循环