[Annoyance] Correct Grammar

[GIAKEN]

Pfft I already did this.

Holy fucking shit you're alive.

I just moved out of my parents house.

Anyways, I did this check grammar thing in Elysium Diamond 3 a long ass time ago. Here's my function:

Code:

Public Function CheckGrammar(ByVal Word As String, Optional ByVal Caps As Byte = NO) As String
Dim FirstLetter As String * 1
  
    FirstLetter = LCase$(Left$(Word, 1))
  
    If Caps Then CheckGrammar = "A" Else CheckGrammar = "a"
  
    If FirstLetter = "a" Or FirstLetter = "e" Or FirstLetter = "i" Or FirstLetter = "o" Or FirstLetter = "u" Then
        If Caps Then CheckGrammar = "An" Else CheckGrammar = "an"
    End If

End Function