在VB.NET中利用Split和Replace函数计算字数

Private Sub CountWords()
Dim strText As String = "It's a wonderful    world"
Dim iCount As Integer
Do While (strText.IndexOf(Space(2)) >= 0)
strText = strText.Replace(Space(2), Space(1))
Loop
iCount = Split(strText, Space(1)).Length
MsgBox(iCount.ToString())
End Sub

Private Sub CountWords()
Dim strText As String = "It's a wonderful    world"        
Dim iCount As Integer
Do While (strText.IndexOf(Space(2)) >= 0)            
strText = strText.Replace(Space(2), Space(1))        
Loop
iCount = Split(strText, Space(1)).Length        
MsgBox(iCount.ToString())
End Sub