Imports System
Imports System.Text.RegularExpressions

Public Class Test
   Public Shared Sub Main() 
       Dim s As String = "10,000kg crane,21"
       s = Regex.Replace(s, ",(?=.*?,)", "")
       System.Console.WriteLine(s)
   End Sub
End Class