Code vb premier lettre en majuscule

Bonjour,
j ai un code vb que j ai l utilisé dans un module sous access pr afficher les resulta dans un formulaire mais j ai un petit probleme je veux ke la premier lettre en majuscule c est un code traduit les chiffre en lettre

Option Compare Database

Public Function ChiffLetr(Nombre As Currency) As String
Dim PartieEntière As Currency, PartieDécimale As Currency
Dim TxtEntier As String, TxtDécimal As String
Dim Unité As String, Sunité As String
PartieEntière = Int(Nombre)
TxtEntier = ChiffTextEntier(PartieEntière)
NbrDécimal = Nombre - PartieEntière
If NbrDécimal > 0 Then
PartieDécimale = (Nombre - PartieEntière) * 10 ^ 2
TxtDécimal = ChiffTextEntier(PartieDécimale)
End If
Unité = IIf(PartieEntière > 1, "dirhams", "dirham")
Select Case PartieDécimale
Case 0
Sunité = ""
Case 1
Sunité = "centime"
Case Else
Sunité = "centimes"
End Select

ChiffLetr = TxtEntier & " " & Unité & " " & TxtDécimal & " " & Sunité

End Function

Public Function ChiffTextEntier(ByVal Entier As Currency) As String
Dim no_Classe As Integer, Classe As Integer
If Entier = 0 Then
ChiffTextEntier = "Zéro"
Else
While Entier > 0
Classe = Entier - Int(Entier / 1000) * 1000
ChiffTextEntier = TxtClasse(Classe, no_Classe) & ChiffTextEntier
no_Classe = no_Classe + 1
Entier = Int(Entier / 1000)
Wend
End If
End Function

Public Function TxtClasse(Classe As Integer, no_Classe As Integer) As String
Dim Centaine As Integer, Dizaine As Integer, Unité As Integer, Unités2chiffres As Integer
Dim TxtCentaines As String, TxtDizaines As String, TxtUnités As String
Dim TClasses As Variant, Tdizaines As Variant, TUnités As Variant
TClasses = Array("", "mille", "million", "milliard", "billion")
Tdizaines = Array("", "", "vingt ", "trente ", "quarante ", "cinquante ", "soixante ", "soixante ", "quatre-vingt ", "quatre-vingt ")
TUnités = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", _
"dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix-sept", "dix-huit", "dix-neuf")
If Classe = 0 Then Exit Function 'pas de un pour mille
If Classe = 1 And no_Classe = 1 Then
TxtClasse = "mille "
Exit Function
End If
Centaine = Int(Classe / 100)
Unités2chiffres = Classe Mod 100
Dizaine = Int(Unités2chiffres / 10)
Unité = Unités2chiffres Mod 10
' Les centaines
If Centaine = 1 Then
TxtCentaines = "cent "
ElseIf Centaine > 1 Then
TxtCentaines = TUnités(Centaine) & " cent" & IIf(Unités2chiffres > 0, " ", "s")
End If
' Les dizaines
TxtDizaines = Tdizaines(Dizaine)
If Unité = 1 And Dizaine > 1 And Dizaine < 8 Then
TxtDizaines = TxtDizaines & "-et "
End If
If Dizaine = 1 Or Dizaine = 7 Or Dizaine = 9 Then
Unité = Unité + 10: Dizaine = 0
End If
TxtDizaines = TxtDizaines & IIf(Unités2chiffres = 80, "s", "")
If Unité2Chiffres > 19 And Unité > 0 Then
TxtDizaines = TxtDizaines & "-"
ElseIf Dizaine > 0 Then
txtdizaine = txtdizaine & " "
End If
'Les unités---------Espace si unité > 0
TxtUnités = TUnités(Unité) & IIf(Unité > 0, " ", "")
'La classe----------un s sauf pour mille
TxtClasse = TClasses(no_Classe) & IIf(no_Classe > 1 And Classe > 1, "s", "") & _
IIf(no_Classe > 0, " ", "")
'Résultat
TxtClasse = TxtCentaines & TxtDizaines & TxtUnités & TxtClasse
End Function