Dim S As String = "$"
For Each S In TextBox1.Text
Msgbox("..")
Next
Dim WordCount As Integer = 0
For i = 1 To TextBox1.Text.Length
If Mid(TextBox1.Text, i, 1) = "$" Then
WordCount += 1
End If
Next
MsgBox(WordCount)
