Подсчет количества точек и запятых в строке

Public Class Form1
 
    Private Property Str As String
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Str = Text1.Text
         Dim Punctuation As Byte
 
        For i = 1 To Len(Str)
 
            Dim charVar As Char
 
            charVar = Mid(Str, i, 1)
 
            If charVar = "-" Or charVar = "+" Then
                Punctuation = Punctuation + 1
                Label1.Text = Punctuation
 
            End If
        Next i
    End Sub
 
End Class

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim arrCommas(), arrDots() As String
 
        arrDots = Me.TextBox1.Text.Split(".")
        arrCommas = Me.TextBox1.Text.Split(",")
        MsgBox("В вашей строке: " & Chr(10) & "- точек: " & arrDots.Length - 1 & Chr(10) & "- запятых: " & arrCommas.Length - 1, vbInformation, "Ответ")
    End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim arrCommas(), arrDots() As String
 
        If Me.TextBox1.Text.Length > 2 Then
            arrDots = Mid(Me.TextBox1.Text, 3).Split(".")
            arrCommas = Mid(Me.TextBox1.Text, 3).Split(",")
            MsgBox("В вашей строке: " & Chr(10) & "- точек: " & arrDots.Length - 1 & Chr(10) & "- запятых: " & arrCommas.Length - 1, vbInformation, "Ответ")
        Else
            MsgBox("Введено мало символов!", vbInformation, "Внимание")
        End If
    End Sub