Code:

Option Explicit

Private Type LARGE_INTEGER
    lowpart As Long
    highpart As Long
End Type

Private Declare Function QueryPerformanceFrequencyAny Lib "kernel32" Alias _
    "QueryPerformanceFrequency" (lpFrequency As Any) As Long
Private Declare Function QueryPerformanceCounterAny Lib "kernel32" Alias _
    "QueryPerformanceCounter" (lpPerformanceCount As Any) As Long

Private Sub Command1_Click()
    Dim frequency As Currency
    Dim startTime As Currency
    Dim endTime As Currency
    Dim result As Double
    
    ' get the frequency counter
    ' return zero if hardware doesn't support high-res performance counters
    If QueryPerformanceFrequencyAny(frequency) = 0 Then
        MsgBox "This computer doesn't support high-res timers", vbCritical
        Exit Sub
    End If
    
    ' start timing
    QueryPerformanceCounterAny startTime
    
    ' put here the code to be timed, for example...
    Dim i As Long
    For i = 1 To 10000000
    Next

    ' end timing
    QueryPerformanceCounterAny endTime
    
    ' note that both dividend and divisor are scaled
    ' by 10,000, so you don't need to scale the result
    result = (endTime - startTime) / frequency
    
    ' show the result
    MsgBox result
End Sub

Code:
 for i = 1 to 50
          if i = nesto then f (i)
next i

Code:
select case i
case 1
f (1)
case 2
f (2).....