by mike ruberto (2 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 12th July 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
use this code to properly pluralize peoples names.
Dim stringLen As Long
Dim S As String
Dim letter As String
S = "s"
stringLen = Len(playerName)
letter = Mid(playerName, stringLen, 1)
If letter = S Then
playerName = playerName & "'"
Else
playerName = playerName & "'s"
End If
End Sub