Dim v As DoubleDim id As String = "35kg"id = id.Replace("kg","")Double.TryParse(id,v)
MessageBox.Show(v)