Der er en fejl i et stykke MS Visual Basic

Jeg har for sjov skyld prøvet om jeg ikke kan programmere excel til at kunne regne ud sudoku ud for mig ... i det følgende leder jeg efter om der er et "ettal" på 8 pladser (B3-B10). Hvorfor virker det ikke ?????

I Excel:
=Sudoku(B3;B4;B5;B6;B7;B8;B9;B10)

I MS Visual Basic:
Public Function Sudoku(TST1 As Integer, TST2 As Integer, TST3 As Integer, TST4 As Integer, TST5 As Integer, TST6 As Integer, TST7 As Integer, TST8 As Integer)

Dim L1 As Integer

L1 = 0

If TST1 = 1 Then
      L1 = 1
    End If

If TST2 = 1 Then
      L1 = L1 + 1
    End If
   
If TST3 = 1 Then
      L1 = L1 + 1
    End If

If TST4 = 1 Then
      L1 = L1 + 1
    End If

If TST5 = 1 Then
      L1 = L1 + 1
    End If

If TST6 = 1 Then
      L1 = L1 + 1
    End If

If TST7 = 1 Then
      L1 = L1 + 1
    End If

If TST8 = 1 Then
      L1 = L1 + 1
    End If

Sudoku = L1

End Function