请问怎样检测文本框输入的字符串是不是"000,000000"格式，解决后马上给分！

[zhangwh6882]

如题

[gaoqi5037]

用Masked Edit 控件吧

它可以限定输入格式

[kangshu]

Private Function funCheck(ByVal str As String) As Boolean
Dim sStr As String
Dim iPoint As Integer

sStr = str
For i = 0 To Len(sStr) - 1
If iPoint <> 3 Then
If IsNumeric(Left(sStr, 1)) Then
funCheck = True
Else
funCheck = False
Exit Function
End If
Else
If Left(sStr, 1) = "," Then
funCheck = True
Else
funCheck = False
Exit Function
End If
End If
iPoint = iPoint + 1
sStr = Right(sStr, Len(sStr) - 1)
Next
End Function

[intersun]

用Format函数可以吗？
Format(string,"000,000000")

[huxiangming]

判别a$是否为000，000，000格式。

If a$ = Format(a$, "#,##0") Then
MsgBox " 是，，格式"
Else
MsgBox " 不是，，格式"
End If

[twtetgso]

用Masked Edit 控件

[ww_wyc]

用Format函数呀：例如
If Format(Text1.Text, "000.00000") Then
MsgBox "对 "
Else
MsgBox "错"
End If

[yjmking]

同意使用Format函数，既简单，又实用

[chenyu5188]

用format()涵数啊~!!

[keyterxian]

用Format函数
If Format(Text1.Text, "000.00000") Then
MsgBox "RIGHT FORMAT"
Else
MsgBox "WRONG FORMAT"
End If

[tomora]

format可以吗？？？我觉得好像不对.....

[tomora]

上面的问题是“，”而不是“.”！！！