Ho risolto con questo:

codice:
Dim a1 As String = "Ciao"
Dim a2 As String = Microsoft.VisualBasic.Strings.Left(a1, a1.Length - 1)