Visual Basic letter tellen in zin

[Wereld]

Hallo,

Ik wil een programma maken, maar ik kom er niet helemaal uit.
De gebruiker moet in een tekstbox een zin of woord typen,
en in een andere textbox bijv. de letter 'a' typen.
Dan moet het programma tellen hoe vaak de a voorkomt in die tekst.
En dat moet dan weer in een andere tekstbox worden weergegeven.
Maar ik begrijp het niet helemaal. Kan iemand mij helpen (met onderstaand voorbeeld)?

Dim Zin As String
Dim Letter As String

Zin = Val(Me.Tekst.Text)
Letter = Val(Me.GekozenLetter.Text)

Als ik het goed heb begrepen, controleer je met dit of de letter erin voorkomt:
Letter = InStr(Zin)

Kan ik hier dan dit van maken?:

If Letter = InStr(Zin) = False Then
.....
End If

en

If Letter = InStr(Zin) = True Then
.....
End If

En nu snap ik niet helemaal wat ik bij dat laatste stukje (If Letter = InStr(Zin) = True Then
.....
End If) ertussen moet zetten. Ik geloof dat ik iets met len of mid moet doen, maar ik begrijp het niet.

 

[edmoor]

Probeer dit eens:

Dim Aantal As integer
Dim Letter As String
Dim Zin As String
Dim i As Integer

Zin = Me.Tekst.Text
Letter = Me.GekozenLetter.Text

For i = 1 To Len(Zin)
    If Mid(Zin, i, 1) = Letter Then
        Aantal = Aantal + 1
    End If
Next i

MsgBox "Gevonden aantal: " & Aantal

 

[Wereld]

Probeer dit eens:

Dim Aantal As integer
Dim Letter As String
Dim Zin As String
Dim i As Integer

Zin = Me.Tekst.Text
Letter = Me.GekozenLetter.Text

For i = 1 To Len(Zin)
    If Mid(Zin, i, 1) = Letter Then
        Aantal = Aantal + 1
    End If
Next i

MsgBox "Gevonden aantal: " & Aantal

Het werkt, heel erg bedankt!

Zou je misschien nog wel een klein beetje uitleg kunnen geven over het deel tussen For en Next?

 

[edmoor]

Je bedoelt de Mid functie? Die staat hier uitgelegd:
http://www.homeandlearn.org/excel_vba_mid_function.html