Attribute VB_Name = "Module1"

Function KirjaimiaKpl(MJono As String, _
         EtsKirjain As String) As Long
1   Dim Lp As Long
2   Dim Kpl As Long
3   Kpl = 0
4   Lp = 1
5   Do While Lp < Len(MJono)
6     If Mid(MJono, Lp, 1) = EtsKirjain Then
7       Kpl = Kpl + 1
8     End If
9     Lp = Lp + 1
10  Loop
11  KirjaimiaKpl = Kpl
End Function

Sub Testi()
12  MsgBox KirjaimiaKpl("merkkijono", "k")
End Sub