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