'recuperando la cadena de texto ingresa por el usuario
Dim cad As String = txtCadena.Text
Dim myChar As Char
'asignando un valor al caracter
myChar = "O"c
'ahora recoriendo un for para comparar un caracter
For i As Integer=0 To cad.Length -1
If ( cad.Chars(i) = myChar ) Then
MessageBox.Show("se encontro el caracter")
End If
Next