Public Function TrimNumber(ByVal sData As String) As String
 
        Dim sNewData As String = ""
 
        For nIdx As Integer = 0 To sData.Length - 1
            If IsNumeric(sData.Substring(nIdx, 1)) Or sData.Substring(nIdx, 1) _
              = "-" Or sData.Substring(nIdx, 1) = "+" Or sData.Substring(nIdx, _
              1) = "," Then
                sNewData += sData.Substring(nIdx, 1)
            End If
        Next
 
        Return sNewData
 
    End Function