Solun tekstitiedosta laskeminen

Seuraava makrofunktio kasvattaa laskuria aina kun tulee uusi numero:

Function lkm(s As String) As Integer                                                                           numero = False                                                                                                          n = 0                                                                                                                           For i = 0 to Len(s)                                                                                                         If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then                                                     If Not numero Then                                                                                                      n = n   1                                                                                                                     numero = True                                                                                                         End If                                                                                                                      Else                                                                                                                               numero = False                                                                                                       End If                                                                                                                      Next i                                                                                                                          lkm = n                                                                                                                    End Function