ASP.NET - FORMATTER UN NUMÉRO DE TÉLÉPHONE EN AFFICHAGE FRANÇAIS

' La fonction est très simple et fait une suppression des caractères et
' remplace ces ponctuations par notre séparateur

' -----------------------------------------------------
Public Function FormatteTelephone(ByVal ChaineTel As String) As String
 ' Renvoie le Numéro de téléphone formatté selon le format Francais :
 '           - xx.xx.xx.xx.xx
 ' Supprime les characteres possibles (- / . \  qui peuvent se présenter)
  If ChaineTel <> "" And Not ChaineTel Is Nothing Then
   Dim Séparateur As Char = "."
   Dim Temp As String = ""
   Dim TempResult As String = ""
   Dim longueur As Integer = 0
   Dim i As Integer = 0

    ' Suppression des characteres parasites
    Temp = Replace(ChaineTel, "-", "")
    Temp = Replace(Temp, ".", "")
    Temp = Replace(Temp, "/", "")
    Temp = Replace(Temp, ";", "")
    Temp = Replace(Temp, ":", "")
    Temp = Replace(Temp, ",", "")
    Temp = Replace(Temp, "\", "")
    Temp = Replace(Temp, " ", "")

    longueur = Temp.Length
    
    If (longueur Mod 2) <> 0 Then
     longueur += 1
    End If
    For i = 0 To (longueur - 2) Step 2
     TempResult &= Mid(Temp, i + 1, 2)
    If i <> (longueur - 2) Then
     TempResult &= Séparateur
    End If
   Next
  Return TempResult
 End If
End Function

' -----------------------------------------------------
'L'appel se fait simplement comme ceci :

MonLabel.text = FormatteTelephone(Trim(MonChampTelBase))