简单的字串切割问题(使用vb.net)

此为重发上午的问题，有此地方写错了

我有一字串如下(单纯为字串，前一则写错成str( ) )

2,深圳, 2018-06-30 10:19:58, name北京JW万豪酒店, 10004151, 华贸中心建国路83号, https://hotel.fliggy.com/hotel_detail2.htm?=10004151&=110100&checkIn=2018/6/30&checkOut=2018/7/1 10:19:45, 1137, 4.8, 1123, "0, 豪华型, 5, RateNone"..................

1、我要将最前面的2提出来 dim newNum=, 这个数不一定等于2，有可能为任意数

2、将字串
"2,深圳, 2018-06-30 10:19:5..............."
变成
"深圳, 2018-06-30 10:19:5..............."

请问应该如何处理呢

 Imports System.Text.RegularExpressions

Module Module1

    Sub Main()
        Dim str = "2,深圳, 2018-06-30 10:19:58, name北京JW万豪酒店, 10004151, 华贸中心建国路83号, https://hotel.fliggy.com/hotel_detail2.htm?=10004151&=110100&checkIn=2018/6/30&checkOut=2018/7/1 10:19:45, 1137, 4.8, 1123, 0, 豪华型, 5, RateNone"
        Dim newNum = Val(Regex.Match(str, "^\d+(?=\,)").Value)
        str = Regex.Replace(str, "^\d+\,", "")
        Console.WriteLine(newNum)
        Console.WriteLine(str)
    End Sub

End Module

Dim str As String ="2,深圳, 2018-06-30 10:19:58, name北京JW万豪酒店, 10004151, 华贸中心建国路83号, https://hotel.fliggy.com/hotel_detail2.htm?=10004151&=110100&checkIn=2018/6/30&checkOut=2018/7/1 10:19:45, 1137, 4.8, 1123, "0, 豪华型, 5, RateNone"...
str.Substring(str.IndexOf(','), str.Length - str.IndexOf(',') + 1)

获取第一个，的索引位置 根据substring进行截取就可以了