Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim c() As Char = TextBox1.Text.ToCharArray
Dim count As Integer
For Each c2 As Char In c
If c2 = "PEPE" Then
Dim b() As Char = "El Sapo Pepe"
For Each b2 As Char In b
If b2 = "P" Then
count += 1
Else
codigo .....
End If
Next
MessageBox.Show(count)
ElseIf c2 = "Nombre" Then
End If
Next
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim c() As Char = TextBox1.Text.ToCharArray
Dim count As Integer
For Each c2 As Char In c
If c2 = "PEPE" Then
Dim b() As Char = "El Sapo Pepe"
ElseIf c2 = "Nombre" Then
Dim b() As Char = "Nombre cualquiera"
End If
For Each b2 As Char In b
If b2 = "P" Then
count += 1
Else
Codigo .....
End If
Next
MessageBox.Show(count)
Next
End Sub