怎样用vb判断字符串中是否含有小数点和小数点的个数？

建一个按键，一个文本框就行。
Private Sub Command1_Click()
s = 0
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = "." Then
s = s + 1
End If
Next
If s = 0 Then Print "没有小数点"
If s <> 0 Then Print "有" & s & "个小数点"
End Sub

VB：
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

建一个按键，一个文本框就行。
Private Sub Command1_Click()
s = 0
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = "." Then
s = s + 1
End If
Next
If s = 0 Then Print "没有小数点"
If s <> 0 Then Print "有" & s & "个小数点"

End Sub

用replace函数替换掉字符串中所有小数点，然后与原字符串长度相比减少了多少就说明有多少个小数点
dim str as string
s