Duvida Para Ler String

[Ala Aristies]

tenho que fazer para a facu um programa que conte quantas ocorrências da letra A existem em um nome estou utilizando o InStr com um for mas não vai

Sub main()
        Dim nome As String
        Dim letra As String
        Dim conta As String
        Dim c, m, s As Integer
        nome = InputBox("Digite nome")
        letra = InputBox("Digite a letra a procurar")
        s = nome.Length

        For c = 0 To s

            m = InStr(nome, letra)


        Next
        MessageBox.Show(m)

    End Sub

[Graymalkin]

É mais simples e inteligível você fazer com um For Each:

Dim texto As String = InputBox("Digite o texto:")
        Dim letra As String = InputBox("Digite a letra a ser procurada:")

        Dim qt As Integer = 0

        For Each caracter As Char In texto
            If caracter = letra Then
                qt += 1
            End If
        Next

        MessageBox.Show(String.Format("Quantidade de ocorrências de '{0}' em '{1}': {2}", letra, texto, qt))

Certo? ;)

Graymalkin