Visual Basic - Quitar Puntos Separadores de Miles

Public Function sacapuntos(Cadena As String) As String

Dim puntos As String

    puntos = "."

    While InStr(Cadena, "'") > 0

        Cadena = Left(Cadena, InStr(Cadena, "") - 1) _

        & puntos & Right(Cadena, Len(Cadena) - InStr(Cadena, ""))

    Wend

    sacapuntos= Cadena

End Function

Private Sub CommandButton1_Click()

T.Text = sacapuntos(T.Text)

End Sub

 Public Function sacapuntos(Cadena As String) As String

Dim Comilla As String

    puntos = ""

    While InStr(Cadena, ".") > 0

        Cadena = Left(Cadena, InStr(Cadena, ".") - 1) _

        & Comilla & Right(Cadena, Len(Cadena) - InStr(Cadena, "."))

    Wend

    sacapuntos = Cadena

End Function