Function CalcChecksum(projectNumber As Integer) As String
Dim temp As String
Dim number As Integer
number = 0
temp = Evaluate("DEC2BIN(" & projectNumber & ", 8)")
For i = 1 To Len(temp)
If (Mid(temp, i, 1) = "1") Then number = number + 1
Next i
Select Case number
Case 1
CalcChecksum = temp
Case 2
CalcChecksum = "01" & Mid(temp, 3, 6)
Case 3
CalcChecksum = "10" & Mid(temp, 3, 6)
Case Else
CalcChecksum = "11" & Mid(temp, 3, 6)
End Select
End Function