[Code Source] Formater une adresse IPv4

Le but de cette fonction est de formater les adresses IPv4 au format 010.005.120.015 en 10.5.120.15 (exemple pris complètement au hasard).

Suppression des zéros inutiles, devant un nombre.

Source code
   
Public Function Format_AdresseIP(adr_ip As String) As String
        Dim col() As String
        col = Split(adr_ip, ".")
        If UBound(col) = 3 Then
            Return Val(col(0)) & "." & Val(col(1)) & "." & Val(col(2)) & "." & Val(col(3))
        Else
            Return ""
        End If
End Function