Remover el último caracter de un string

Dim inf As String="1,2,3,"

inf = inf.Remove(inf.Length - 1)
inf = "1,2,3"

fuente