Дана строка. Определите общее количество символов + и - в ней - VB

Private Sub Command1_Click()
Dim S As String
Dim AllPM As Long, PM0 As Long, i As Long
  S = "0a+0+b4-c-060++0d80+e0"
  For i = 1 To Len(S)
    If Mid(S, i, 1) Like "[+-]" Then
      AllPM = AllPM + 1
      If Mid(S, i + 1, 1) = "0" Then PM0 = PM0 + 1
    End If
  Next
  Print "Всего + и - ="; AllPM
  Print "Перед 0 ="; PM0
End Sub