VB contare quanti caratteri a una stringa

[allejo]

Private Sub Form_Load()
Dim var As String
var = "assdaresada"
totale=??????? 'contare qunti caratteri ha "a" nella stringa var
End Sub

grazie