Imports System
Public Module Module1
Public Sub Main()
Dim s As String = "v b . n e t"
Dim spaceCount, charCount As Integer
spaceCount= 0
charCount = 0
For Each ch As Char In s
If ch = " " Then
spaceCount+= 1
Else
charCount += 1
End If
Next
Console.WriteLine(spaceCount)
Console.WriteLine(charCount)
End Sub
End Module
' run:
'
' 5
' 6
'