Private Function Category(c) As String
' Returns a Soundex code for a letter
'Version pour le français :
'1 = B, P
'2 = C, K, Q
' 3 = D, T
'4 = L
' 5 = M, N
'6 = R
'7 = G, J
' 8 = X, Z, S
'9 = F, V
Select Case True
Case c Like "[AEIOUY]"
Category = "/"
Case c Like "[BP]"
Category = "1"
Case c Like "[CKQ]"
Category = "2"
Case c Like "[DT]"
Category = "3"
Case c = "L"
Category = "4"
Case c Like "[MN]"
Category = "5"
Case c = "R"
Category = "6"
Case c Like "[GJ]"
Category = "7"
Case c Like "[SXZ]"
Category = "8"
Case c Like "[FV]"
Category = "9"
Case Else 'This includes H and W, spaces, punctuation, etc.
Category = ""
End Select
End Function