'Accentuated vowels => Vowel (a/e/i/o/u) + Ac(ute)/Gr(ave)/Ci(rcumflex)/Di(aeresis) + U(Case)/L(Case)
Public aAcL As String, aGrL As String, aCiL As String, aDiL As String
Public aAcU As String, aGrU As String, aCiU As String, aDiU As String
Public eAcL As String, eGrL As String, eCiL As String, eDiL As String
Public eAcU As String, eGrU As String, eCiU As String, eDiU As String
Public iAcL As String, iGrL As String, iCiL As String, iDiL As String
Public iAcU As String, iGrU As String, iCiU As String, iDiU As String
Public oAcL As String, oGrL As String, oCiL As String, oDiL As String
Public oAcU As String, oGrU As String, oCiU As String, oDiU As String
Public uAcL As String, uGrL As String, uCiL As String, uDiL As String
Public uAcU As String, uGrU As String, uCiU As String, uDiU As String
Public cCeL As String, cCeU As String 'Cedilla c
Private Sub LoadStr()
#If Mac Then
aAcL = VBA.Chr(135): aGrL = VBA.Chr(136): aCiL = VBA.Chr(137): aDiL = VBA.Chr(138)
eAcL = VBA.Chr(142): eGrL = VBA.Chr(143): eCiL = VBA.Chr(144): eDiL = VBA.Chr(145)
iAcL = VBA.Chr(146): iGrL = VBA.Chr(147): iCiL = VBA.Chr(148): iDiL = VBA.Chr(149)
oAcL = VBA.Chr(151): oGrL = VBA.Chr(152): oCiL = VBA.Chr(153): oDiL = VBA.Chr(154)
uAcL = VBA.Chr(156): uGrL = VBA.Chr(157): uCiL = VBA.Chr(158): uDiL = VBA.Chr(159)
cCeL = VBA.Chr(141)
#ElseIf VBA6 Or VBA7 Then
aAcL = VBA.Chr(225): aGrL = VBA.Chr(224): aCiL = VBA.Chr(226): aDiL = VBA.Chr(228)
eAcL = VBA.Chr(233): eGrL = VBA.Chr(232): eCiL = VBA.Chr(234): eDiL = VBA.Chr(235)
iAcL = VBA.Chr(237): iGrL = VBA.Chr(236): iCiL = VBA.Chr(238): iDiL = VBA.Chr(239)
oAcL = VBA.Chr(243): oGrL = VBA.Chr(242): oCiL = VBA.Chr(244): oDiL = VBA.Chr(246)
uAcL = VBA.Chr(250): uGrL = VBA.Chr(249): uCiL = VBA.Chr(251): uDiL = VBA.Chr(252)
cCeL = VBA.Chr(231)
#Else
LsErr 'Houston...
#End If
aAcU = VBA.UCase(aAcL): aGrU = VBA.UCase(aGrL): aCiU = VBA.UCase(aCiL): aDiU = VBA.UCase(aDiL)
eAcU = VBA.UCase(eAcL): eGrU = VBA.UCase(eGrL): eCiU = VBA.UCase(eCiL): eDiU = VBA.UCase(eDiL)
iAcU = VBA.UCase(iAcL): iGrU = VBA.UCase(iGrL): iCiU = VBA.UCase(iCiL): iDiU = VBA.UCase(iDiL)
oAcU = VBA.UCase(oAcL): oGrU = VBA.UCase(oGrL): oCiU = VBA.UCase(oCiL): oDiU = VBA.UCase(oDiL)
uAcU = VBA.UCase(uAcL): uGrU = VBA.UCase(uGrL): uCiU = VBA.UCase(uCiL): uDiU = VBA.UCase(uDiL)
cCeU = VBA.UCase(cCeL)
End Sub